Changeset 11907

Timestamp:

05/20/09 22:20:42 (14 years ago)

Author:

ehuelsmann

Message:

Move the COMPILE block down from its dependencies.

File:

• trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp (modified) (2 diffs)

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

@@ -8363 +8363 @@
         (delete-file tempfile)))
     (when (and name (functionp compiled-function))
-      (set-function-definition name compiled-function definition))
+      (sys::set-function-definition name compiled-function definition))
     (or name compiled-function)))
 
-
-(defvar *file-compilation* nil)
-(defvar *pathnames-generator* #'make-temp-file)
-
-(defun compile (name &optional definition)
-  (jvm-compile name definition))
-
-(defmacro with-file-compilation (&body body)
-  `(let ((*file-compilation* t)
-         (*pathnames-generator* #'sys::next-classfile-name))
-     ,@body))
 
 (defun jvm-compile (name &optional definition)
@@ -8422 +8411 @@
       (values (%jvm-compile name definition expression environment)
               warnings-p failure-p))))
+
+(defvar *file-compilation* nil)
+(defvar *pathnames-generator* #'make-temp-file)
+
+(defun compile (name &optional definition)
+  (jvm-compile name definition))
+
+(defmacro with-file-compilation (&body body)
+  `(let ((*file-compilation* t)
+         (*pathnames-generator* #'sys::next-classfile-name))
+     ,@body))
+
+
 
 (defun jvm-compile-package (package-designator)