From 49358627c28e9c6896eafce7b9c2efe631a5802f Mon Sep 17 00:00:00 2001
From: Edward Langley <el-github@elangley.org>
Date: Thu, 13 Apr 2023 09:29:51 -0700
Subject: [PATCH] fix: remove spurious warning in DISJ

---
 lens.lisp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lens.lisp b/lens.lisp
index 1fcb627..d9263ae 100644
--- 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)))))