Changeset 12980

Timestamp:

Oct 9, 2009, 4:06:23 PM (15 years ago)

Author:

gz

Message:

Hoist special declarations (only) to the return clause of dolist if any

Location:

branches/working-0711/ccl/lib

Files:

• level-2.lisp (modified) (1 diff)
• macros.lisp (modified) (1 diff)

branches/working-0711/ccl/lib/level-2.lisp

@@ -49 +49 @@
 ; that have been scarfed out of a macro-like lambda list.
 ; The returned value is supposed to be suitable for splicing ...
-#+not-used
 (defun hoist-special-decls (sym decls)
   (when sym

branches/working-0711/ccl/lib/macros.lisp

@@ -197 +197 @@
               (if ,lstsym (go ,toplab))))
          ,@(if ret `((let ((,varsym nil))
+                       ,@(hoist-special-decls varsym decls)
                        (declare (ignore-if-unused ,varsym))
-                       ,@decls
                        ,ret)))))))