fix: remove spurious warning in DISJ

2025-11-08 10:16:32 +00:00 · 2023-04-13 09:29:51 -07:00
parent 9c4d29543b
commit 49358627c2
1 changed files with 1 additions and 0 deletions
--- a/lens.lisp
+++ b/lens.lisp
@ -132,6 +132,7 @@
 (defmacro disj (&rest fns)
  (let ((dat (gensym "dat")))
    `(lambda (,dat)
+       (declare (ignorable ,dat))
       (or ,@(mapcar (lambda (fn)
                       `(funcall ,fn ,dat))
                     fns)))))