aboutsummaryrefslogtreecommitdiff
path: root/macros.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'macros.lisp')
-rw-r--r--macros.lisp1
1 files changed, 1 insertions, 0 deletions
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)