Changeset 11443


Ignore:
Timestamp:
12/14/08 14:17:40 (13 years ago)
Author:
vvoutilainen
Message:

Fix macrolet.39 in compiled tests by using environment for
local functions.

File:
1 edited

Legend:

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

    r11442 r11443  
    829829        (body (cddr def)))
    830830    ;; Macro names are shadowed by local functions.
    831     (push nil *local-functions-and-macros*)
    832     (push name *local-functions-and-macros*)
     831    (environment-add-function-definition *compile-file-environment* name body)
    833832    (list* name arglist (mapcar #'precompile1 body))))
    834833
     
    850849
    851850(defun precompile-flet/labels (form)
    852   (let ((*local-functions-and-macros* *local-functions-and-macros*)
     851  (let ((*compile-file-environment*
     852         (make-environment *compile-file-environment*))
    853853        (operator (car form))
    854854        (locals (cadr form))
Note: See TracChangeset for help on using the changeset viewer.