Changeset 14066

Timestamp:

08/08/12 21:49:40 (9 years ago)

Author:

ehuelsmann

Message:

Fix #168: compilation of LET-PLUS fails.

File:

• trunk/abcl/src/org/armedbear/lisp/precompiler.lisp (modified) (2 diffs)

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

@@ -493 +493 @@
            (multiple-value-bind
                  (expansion expanded)
-               (expand-macro place)
+               ;; Expand once in case the form expands
+               ;; into something that needs special
+               ;; SETF treatment
+               (macroexpand-1 place)
              (if expanded
                  (precompile1 (list* 'SETF expansion
@@ -512 +515 @@
           (multiple-value-bind
                 (expansion expanded)
-              (expand-macro sym)
+              ;; Expand once in case the form expands
+              ;; into something that needs special
+              ;; SETF treatment
+              (macroexpand-1 sym)
             (if expanded
                 (precompile1 (list 'SETF expansion val))