Ignore:
Timestamp:
Oct 10, 2009, 10:41:57 PM (10 years ago)
Author:
gz
Message:

propagate r12996

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/macros.lisp

    r12995 r12997  
    197197              (if ,lstsym (go ,toplab))))
    198198         ,@(if ret `((let ((,varsym nil))
    199                        ,@(hoist-special-decls varsym decls)
    200                        (declare (ignore-if-unused ,varsym))
     199                       (declare (ignore-if-unused ,varsym)
     200                                ,@(loop for decl in decls
     201                                        append (remove 'special (cdr decl) :test #'neq :key #'car)))
    201202                       ,ret)))))))
    202 
    203203
    204204(defmacro dovector ((varsym vector &optional ret) &body body &environment env)
Note: See TracChangeset for help on using the changeset viewer.