Changeset 12980


Ignore:
Timestamp:
Oct 9, 2009, 11:06:23 PM (10 years ago)
Author:
gz
Message:

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

Location:
branches/working-0711/ccl/lib
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lib/level-2.lisp

    r12534 r12980  
    4949; that have been scarfed out of a macro-like lambda list.
    5050; The returned value is supposed to be suitable for splicing ...
    51 #+not-used
    5251(defun hoist-special-decls (sym decls)
    5352  (when sym
  • branches/working-0711/ccl/lib/macros.lisp

    r12959 r12980  
    197197              (if ,lstsym (go ,toplab))))
    198198         ,@(if ret `((let ((,varsym nil))
     199                       ,@(hoist-special-decls varsym decls)
    199200                       (declare (ignore-if-unused ,varsym))
    200                        ,@decls
    201201                       ,ret)))))))
    202202
Note: See TracChangeset for help on using the changeset viewer.