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