Changeset 11720

Timestamp:

03/29/09 09:52:14 (14 years ago)

Author:

ehuelsmann

Message:

Fix unbound variable error.

File:

• trunk/abcl/src/org/armedbear/lisp/precompiler.lisp (modified) (1 diff)

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

@@ -1125 +1125 @@
            (lambda-expression `(named-lambda ,name ,lambda-list ,@decls ,@(when doc `(,doc))
                                              (block ,block-name ,@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