Changeset 11343

Timestamp:

10/11/08 18:17:27 (14 years ago)

Author:

ehuelsmann

Message:

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

File:

• trunk/j/src/org/armedbear/lisp/psetf.lisp (modified) (1 diff)

trunk/j/src/org/armedbear/lisp/psetf.lisp

@@ -37 +37 @@
              (multiple-value-bind
                (dummies vals newval setter getter)
-               (get-setf-expansion (car a) env)
+               (get-setf-expansion (macroexpand-1 (car a) env) env)
                (declare (ignore getter))
                (let*-bindings (mapcar #'list dummies vals))