Changeset 11913 for trunk/abcl/src/org/armedbear/lisp/precompiler.lisp

Timestamp:

05/21/09 11:22:31 (14 years ago)

Author:

ehuelsmann

Message:

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

File:

• trunk/abcl/src/org/armedbear/lisp/precompiler.lisp (modified) (1 diff)

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

@@ -856 +856 @@
   (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