Changeset 14068


Ignore:
Timestamp:
08/09/12 18:40:46 (9 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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/precompiler.lisp

    r14066 r14068  
    496496               ;; into something that needs special
    497497               ;; SETF treatment
    498                (macroexpand-1 place)
     498               (macroexpand-1 place *precompile-env*)
    499499             (if expanded
    500500                 (precompile1 (list* 'SETF expansion
     
    518518              ;; into something that needs special
    519519              ;; SETF treatment
    520               (macroexpand-1 sym)
     520              (macroexpand-1 sym *precompile-env*)
    521521            (if expanded
    522522                (precompile1 (list 'SETF expansion val))
Note: See TracChangeset for help on using the changeset viewer.