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: actually add CONJ and DISJ

Browse Source
This commit is contained in:
Edward Langley
2022-09-27 23:14:14 -07:00
parent ede798a04b
commit 84eae95bb4
1 changed files with 15 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
lens.lisp
View File

@ -111,6 +111,21 @@
(funcall fun it)
it)))
(defmacro conj (&rest fns)
(let ((dat (gensym "dat")))
`(lambda (,dat)
(and ,@(mapcar (lambda (fn)
`(funcall ,fn ,dat))
fns)))))
(defmacro disj (&rest fns)
(let ((dat (gensym "dat")))
`(lambda (,dat)
(or ,@(mapcar (lambda (fn)
`(funcall ,fn ,dat))
fns)))))
(defun-ct sorted (comparator &rest r &key key)
(declare (ignore key))
(lambda (it)