Changeset 11773

Timestamp:

04/21/09 17:26:02 (14 years ago)

Author:

ehuelsmann

Message:

Fix MULTIPLE-VALUE-SETQ and (SETF (VALUES ...) ...) when
setting the value of symbol macros.

Fixes MULTIPLE-VALUE-SETQ.5 and MULTIPLE-VALUE-SETQ.8.

File:

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

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

@@ -64 +64 @@
   (let (temp)
     (cond ((symbolp form)
-           (let ((new-var (gensym)))
-             (values nil nil (list new-var)
-                     `(setq ,form ,new-var) form)))
+           (multiple-value-bind (expansion expanded)
+               (macroexpand-1 form environment)
+             (if expanded
+                 (get-setf-expansion expansion environment)
+                 (let ((new-var (gensym)))
+                   (values nil nil (list new-var)
+                           `(setq ,form ,new-var) form)))))
           ((setq temp (get (car form) 'setf-inverse))
            (get-setf-method-inverse form `(,temp) nil))