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

[Erik Huelsmann]

Author: ehuelsmann
Date: Thu May 21 07:22:31 2009
New Revision: 11913

Log:
Make sure the precompiler shadows symbol macros
if there are MULTIPLE-VALUE-BIND bound variables
by the same name.

Modified:
   trunk/abcl/src/org/armedbear/lisp/precompiler.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/precompiler.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/precompiler.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/precompiler.lisp	Thu May 21 07:22:31 2009
@@ -855,7 +855,10 @@
 (defun precompile-multiple-value-bind (form)
   (let ((vars (cadr form))
         (values-form (caddr form))
-        (body (cdddr form)))
+        (body (cdddr form))
+        (*local-variables* *local-variables*))
+    (dolist (var vars)
+      (push (list var :variable) *local-variables*))
     (list* 'MULTIPLE-VALUE-BIND
            vars
            (precompile1 values-form)