Changeset 12087


Ignore:
Timestamp:
08/08/09 15:31:13 (12 years ago)
Author:
ehuelsmann
Message:

Publish free specials declared in MULTIPLE-VALUE-BIND statements (pass1).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp

    r12086 r12087  
    273273      (setf (block-free-specials block)
    274274            (process-declarations-for-vars body vars))
     275      (dolist (special (block-free-specials block))
     276        (push special *visible-variables*))
    275277      (setf (block-vars block) (nreverse vars)))
    276278    (setf body (p1-body body))
Note: See TracChangeset for help on using the changeset viewer.