Changeset 14068

Timestamp:

08/09/12 18:40:46 (8 years ago)

Author:

ehuelsmann

Message:

Follow up to r14066: expand place in the precompiler environment, which
is what the replaced expand-macro call did do correctly.

File:

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

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

@@ -496 +496 @@
                ;; into something that needs special
                ;; SETF treatment
-               (macroexpand-1 place)
+               (macroexpand-1 place *precompile-env*)
              (if expanded
                  (precompile1 (list* 'SETF expansion
@@ -518 +518 @@
               ;; into something that needs special
               ;; SETF treatment
-              (macroexpand-1 sym)
+              (macroexpand-1 sym *precompile-env*)
             (if expanded
                 (precompile1 (list 'SETF expansion val))