[armedbear-cvs] r12087 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Sat Aug  8 11:31:13 2009
New Revision: 12087

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

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

Modified: trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp	Sat Aug  8 11:31:13 2009
@@ -272,6 +272,8 @@
                 (block-environment-register block) t)))
       (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))
     (setf (block-form block)