Changeset 12997

Timestamp:

Oct 10, 2009, 3:41:57 PM (15 years ago)

Author:

gz

Message:

propagate r12996

File:

• trunk/source/lib/macros.lisp (modified) (1 diff)

trunk/source/lib/macros.lisp

@@ -197 +197 @@
               (if ,lstsym (go ,toplab))))
          ,@(if ret `((let ((,varsym nil))
-                       ,@(hoist-special-decls varsym decls)
-                       (declare (ignore-if-unused ,varsym))
+                       (declare (ignore-if-unused ,varsym)
+                                ,@(loop for decl in decls
+                                        append (remove 'special (cdr decl) :test #'neq :key #'car)))
                        ,ret)))))))
-
 
 (defmacro dovector ((varsym vector &optional ret) &body body &environment env)