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

fix: remove spurious warning in DISJ

Browse Source
This commit is contained in:
Edward Langley
2023-04-13 09:29:51 -07:00
parent 9c4d29543b
commit 49358627c2
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
lens.lisp
View File

@ -132,6 +132,7 @@
(defmacro disj (&rest fns) (defmacro disj (&rest fns)
(let ((dat (gensym "dat"))) (let ((dat (gensym "dat")))
`(lambda (,dat) `(lambda (,dat)
(declare (ignorable ,dat))
(or ,@(mapcar (lambda (fn) (or ,@(mapcar (lambda (fn)
`(funcall ,fn ,dat)) `(funcall ,fn ,dat))
fns))))) fns)))))