[armedbear-cvs] r11921 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Thu May 21 17:29:49 2009
New Revision: 11921

Log:
COMPILE-DEFUN: pass the environment argument to pass
the environment on to PRECOMPILE, instead of hardcoding
*compile-file-environment*.

Modified:
   trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	Thu May 21 17:29:49 2009
@@ -8262,7 +8262,7 @@
         (compile-1 (make-compiland :name name
                                    :lambda-expression
                                    (precompiler:precompile-form form t
-                                                         *compile-file-environment*)
+                                                                environment)
                                    :class-file class-file)))))
 
 (defvar *catch-errors* t)