[Openmcl-cvs-notifications] r7449 - /trunk/ccl/lib/macros.lisp

[gb at clozure.com]

Author: gb
Date: Sun Oct 14 23:26:20 2007
New Revision: 7449

Log:
ignorable declaration in COLLECT

Modified:
    trunk/ccl/lib/macros.lisp

Modified: trunk/ccl/lib/macros.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/ccl/lib/macros.lisp (original)
+++ trunk/ccl/lib/macros.lisp Sun Oct 14 23:26:20 2007
@@ -3185,7 +3185,7 @@
           (push `(,name (&rest args)
                         (collect-normal-expander ',n-value ',kind args))
                 macros))))
-    `(macrolet ,macros (let* ,(nreverse binds) , at body))))
+    `(macrolet ,macros (let* ,(nreverse binds) (declare (ignorable , at binds=
)) , at body))))
 =

 =

 ;;; DEFENUM -- Internal Interface.