Changeset 12087

Timestamp:

08/08/09 15:31:13 (14 years ago)

Author:

ehuelsmann

Message:

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

File:

• trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp

@@ -273 +273 @@
       (setf (block-free-specials block)
             (process-declarations-for-vars body vars))
+      (dolist (special (block-free-specials block))
+        (push special *visible-variables*))
       (setf (block-vars block) (nreverse vars)))
     (setf body (p1-body body))