fiddlerwoaroof/data-lens
1
0
Fork 0
mirror of https://github.com/fiddlerwoaroof/data-lens.git synced 2025-11-08 18:26: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>" :author "Edward Langley <el-cl@elangley.org>"
:license "MIT" :license "MIT"
:depends-on (:cl-ppcre :depends-on (:cl-ppcre
:alexandria :alexandria)
:serapeum)
:serial t :serial t
:components ((:file "package") :components ((:file "package")
(:file "optics") (: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) (fmap (lambda (new)
(cons (cons key new) (cons (cons key new)
alist)) alist))
(funcall cb (serapeum:assocdr key alist)))))) (funcall cb (cdr (assoc key alist)))))))
(defun make-alist-lens (key) (defun make-alist-lens (key)
"A lens for updating a alist, discarding previous values" "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) alist)
:key #'car :key #'car
:from-end t)) :from-end t))
(funcall cb (serapeum:assocdr key alist)))))) (funcall cb (cdr (assoc key alist)))))))
(defun make-list-lens (index) (defun make-list-lens (index)
"A lens for updating a sequence" "A lens for updating a sequence"

1
package.lisp
View File

@ -11,7 +11,6 @@
(defpackage :data-lens (defpackage :data-lens
(:use :cl) (:use :cl)
(:import-from #:serapeum #:op #:defalias)
(:export #:regex-match #:include #:exclude #:pick #:key-transform (:export #:regex-match #:include #:exclude #:pick #:key-transform
#:combine #:derive #:cumsum #:over #:on #:shortcut #:combine #:derive #:cumsum #:over #:on #:shortcut
#:defun-ct #:key #:extract-key #:element #:let-fn #:juxt #:defun-ct #:key #:extract-key #:element #:let-fn #:juxt