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

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"