Wed Apr 27 21:04:36 UTC 2005 mantoniotti
* Added IGNORABLE declaration to MATCH macro expansion.
Added IGNORABLE declaration to MATCH macro expansion.
This is useful in quieting various compilers.
diff -rN -u old-cl-unification-1/match-block.lisp new-cl-unification-1/match-block.lisp
--- old-cl-unification-1/match-block.lisp 2013-07-21 19:57:34.000000000 +0000
+++ new-cl-unification-1/match-block.lisp 2013-07-21 19:57:34.000000000 +0000
@@ -42,7 +42,11 @@
(let* ((,env-var (unify ',template ,object ,substitution))
,@(generate-var-bindings)
)
+ (declare (ignorable ,@(mapcar #'first (generate-var-bindings))))
,@forms)
+
+ ;; Yes. The above is sligthly wasteful.
+
(unification-failure (uf)
(if ,errorp
(signal uf)