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-24 17:39:59.000000000 +0000
+++ new-cl-unification-1/match-block.lisp	2013-07-24 17:39:59.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)