Changeset 11443

Timestamp:

12/14/08 14:17:40 (14 years ago)

Author:

vvoutilainen

Message:

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

File:

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

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

@@ -829 +829 @@
         (body (cddr def)))
     ;; Macro names are shadowed by local functions.
-    (push nil *local-functions-and-macros*)
-    (push name *local-functions-and-macros*)
+    (environment-add-function-definition *compile-file-environment* name body)
     (list* name arglist (mapcar #'precompile1 body))))
 
@@ -850 +849 @@
 
 (defun precompile-flet/labels (form)
-  (let ((*local-functions-and-macros* *local-functions-and-macros*)
+  (let ((*compile-file-environment*
+         (make-environment *compile-file-environment*))
         (operator (car form))
         (locals (cadr form))