fiddlerwoaroof/data-lens
1
0
Fork 0
mirror of https://github.com/fiddlerwoaroof/data-lens.git synced 2025-11-08 10:16:32 +00:00
Code Issues Releases Wiki Activity

feat(deps): remove dep on serapeum

Browse Source
This commit is contained in:
Edward Langley
2022-03-29 22:29:55 -07:00
parent 8709d41f8b
commit a65fc3873a
3 changed files with 3 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
data-lens.asd
View File

@ -8,8 +8,7 @@
:author "Edward Langley <el-cl@elangley.org>"
:license "MIT"
:depends-on (:cl-ppcre
:alexandria
:serapeum)
:alexandria)
:serial t
:components ((:file "package")
(:file "optics")

4
optics.lisp
View File

@ -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"

1
package.lisp
View File

@ -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