Ignore:
Timestamp:
03/29/09 09:52:14 (13 years ago)
Author:
ehuelsmann
Message:

Fix unbound variable error.

File:
1 edited

Legend:

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

    r11719 r11720  
    11251125           (lambda-expression `(named-lambda ,name ,lambda-list ,@decls ,@(when doc `(,doc))
    11261126                                             (block ,block-name ,@body))))
    1127       (cond (*file-compilation*
     1127      (cond ((and (boundp 'jvm::*file-compilation*)
     1128                  ;; when JVM.lisp isn't loaded yet, this variable isn't bound
     1129                  ;; meaning that we're not trying to compile to a file:
     1130                  ;; Both COMPILE and COMPILE-FILE bind this variable.
     1131                  ;; This function is also triggered by MACROEXPAND, though
     1132                  jvm::*file-compilation*)
    11281133             `(fset ',name ,lambda-expression))
    11291134            (t
Note: See TracChangeset for help on using the changeset viewer.