From a65fc3873acf5caecca3e55436d1837270612343 Mon Sep 17 00:00:00 2001 From: Edward Langley Date: Tue, 29 Mar 2022 22:29:55 -0700 Subject: [PATCH] feat(deps): remove dep on serapeum --- data-lens.asd | 3 +-- optics.lisp | 4 ++-- package.lisp | 1 - 3 files changed, 3 insertions(+), 5 deletions(-) diff --git a/data-lens.asd b/data-lens.asd index 37c3d1d..55cf917 100644 --- a/data-lens.asd +++ b/data-lens.asd @@ -8,8 +8,7 @@ :author "Edward Langley " :license "MIT" :depends-on (:cl-ppcre - :alexandria - :serapeum) + :alexandria) :serial t :components ((:file "package") (:file "optics") diff --git a/optics.lisp b/optics.lisp index 320bd73..8e9009b 100644 --- a/optics.lisp +++ b/optics.lisp @@ -151,7 +151,7 @@ contain the new value at the location focused by the lens." (fmap (lambda (new) (cons (cons key new) alist)) - (funcall cb (serapeum:assocdr key alist)))))) + (funcall cb (cdr (assoc key alist))))))) (defun make-alist-lens (key) "A lens for updating a alist, discarding previous values" @@ -162,7 +162,7 @@ contain the new value at the location focused by the lens." alist) :key #'car :from-end t)) - (funcall cb (serapeum:assocdr key alist)))))) + (funcall cb (cdr (assoc key alist))))))) (defun make-list-lens (index) "A lens for updating a sequence" diff --git a/package.lisp b/package.lisp index baf87bd..6bf308c 100644 --- a/package.lisp +++ b/package.lisp @@ -11,7 +11,6 @@ (defpackage :data-lens (:use :cl) - (:import-from #:serapeum #:op #:defalias) (:export #:regex-match #:include #:exclude #:pick #:key-transform #:combine #:derive #:cumsum #:over #:on #:shortcut #:defun-ct #:key #:extract-key #:element #:let-fn #:juxt