Changeset 11913


Ignore:
Timestamp:
05/21/09 11:22:31 (12 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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/precompiler.lisp

    r11912 r11913  
    856856  (let ((vars (cadr form))
    857857        (values-form (caddr form))
    858         (body (cdddr form)))
     858        (body (cdddr form))
     859        (*local-variables* *local-variables*))
     860    (dolist (var vars)
     861      (push (list var :variable) *local-variables*))
    859862    (list* 'MULTIPLE-VALUE-BIND
    860863           vars
Note: See TracChangeset for help on using the changeset viewer.