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

[Erik Huelsmann]

Author: ehuelsmann
Date: Sun Mar 29 05:52:14 2009
New Revision: 11720

Log:
Fix unbound variable error.

Modified:
   trunk/abcl/src/org/armedbear/lisp/precompiler.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/precompiler.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/precompiler.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/precompiler.lisp	Sun Mar 29 05:52:14 2009
@@ -1124,7 +1124,12 @@
     (let* ((block-name (fdefinition-block-name name))
            (lambda-expression `(named-lambda ,name ,lambda-list , at decls ,@(when doc `(,doc))
                                              (block ,block-name , at body))))
-      (cond (*file-compilation*
+      (cond ((and (boundp 'jvm::*file-compilation*)
+                  ;; when JVM.lisp isn't loaded yet, this variable isn't bound
+                  ;; meaning that we're not trying to compile to a file:
+                  ;; Both COMPILE and COMPILE-FILE bind this variable.
+                  ;; This function is also triggered by MACROEXPAND, though
+                  jvm::*file-compilation*)
              `(fset ',name ,lambda-expression))
             (t
              (when (and env (empty-environment-p env))