From 6f4d010a6487a11617ef831d780d4053178bd333 Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Mon, 7 Nov 2022 13:44:22 -0600
Subject: Add: igorable names in let-parameters

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

diff --git a/macros.lisp b/macros.lisp
index 93f1e47..46ac4da 100644
--- a/macros.lisp
+++ b/macros.lisp
@@ -28,6 +28,7 @@ of each NAME, or NIL if there is no such parameter."
       (let ,(loop for name in names
                   for string-name = (symbol-name name) 
                   collect `(,name (cdr (assoc ,string-name ,params :test #'string-equal))))
+        (declare (ignorable ,@names))
         ,@body))))
 
 (defmacro map-parameters ((&rest params) &body body)
-- 
cgit v1.2.3