Ignore:
Timestamp:
08/08/12 21:49:40 (9 years ago)
Author:
ehuelsmann
Message:

Fix #168: compilation of LET-PLUS fails.

File:
1 edited

Legend:

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

    r13045 r14066  
    493493           (multiple-value-bind
    494494                 (expansion expanded)
    495                (expand-macro place)
     495               ;; Expand once in case the form expands
     496               ;; into something that needs special
     497               ;; SETF treatment
     498               (macroexpand-1 place)
    496499             (if expanded
    497500                 (precompile1 (list* 'SETF expansion
     
    512515          (multiple-value-bind
    513516                (expansion expanded)
    514               (expand-macro sym)
     517              ;; Expand once in case the form expands
     518              ;; into something that needs special
     519              ;; SETF treatment
     520              (macroexpand-1 sym)
    515521            (if expanded
    516522                (precompile1 (list 'SETF expansion val))
Note: See TracChangeset for help on using the changeset viewer.