[armedbear-cvs] r11343 - trunk/j/src/org/armedbear/lisp

[Erik Huelsmann,,,]

Author: ehuelsmann
Date: Sat Oct 11 18:17:27 2008
New Revision: 11343

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

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

Modified: trunk/j/src/org/armedbear/lisp/psetf.lisp
==============================================================================
--- trunk/j/src/org/armedbear/lisp/psetf.lisp	(original)
+++ trunk/j/src/org/armedbear/lisp/psetf.lisp	Sat Oct 11 18:17:27 2008
@@ -36,7 +36,7 @@
                       :format-control "Odd number of arguments to PSETF."))
              (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))
                (mv-bindings (list newval (cadr a)))