Changeset 11343


Ignore:
Timestamp:
10/11/08 18:17:27 (13 years ago)
Author:
ehuelsmann
Message:

PSETF should macroexpand-1 any macros which it receives as its arguments.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/psetf.lisp

    r11297 r11343  
    3737             (multiple-value-bind
    3838               (dummies vals newval setter getter)
    39                (get-setf-expansion (car a) env)
     39               (get-setf-expansion (macroexpand-1 (car a) env) env)
    4040               (declare (ignore getter))
    4141               (let*-bindings (mapcar #'list dummies vals))
Note: See TracChangeset for help on using the changeset viewer.