Changeset 11438


Ignore:
Timestamp:
12/13/08 21:24:21 (12 years ago)
Author:
ehuelsmann
Message:

Fix a whole slew of failures involving MACROEXAND/EXPAND-IN-CURRENT-ENV.

Back to 52 (compiled) failures.

File:
1 edited

Legend:

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

    r11437 r11438  
    714714
    715715(defun precompile-macrolet (form)
    716   (let ((*local-functions-and-macros* *local-functions-and-macros*)
    717         (macros (cadr form)))
    718     (dolist (macro macros)
    719       (let ((name (car macro))
    720             (lambda-list (cadr macro))
    721             (forms (cddr macro)))
    722         (push (define-local-macro name lambda-list forms) *local-functions-and-macros*)
    723         (push name *local-functions-and-macros*)))
     716  (let ((*compile-file-environment*
     717         (make-environment *compile-file-environment*)))
     718    (dolist (definition (cadr form))
     719      (environment-add-macro-definition
     720       *compile-file-environment*
     721       (car definition)
     722       (make-macro (car definition)
     723                   (make-expander-for-macrolet definition))))
    724724    (multiple-value-bind (body decls)
    725725        (parse-body (cddr form) nil)
Note: See TracChangeset for help on using the changeset viewer.