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

[Erik Huelsmann]

Author: ehuelsmann
Date: Wed May 20 18:20:42 2009
New Revision: 11907

Log:
Move the COMPILE block down from its dependencies.

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	Wed May 20 18:20:42 2009
@@ -8362,21 +8362,10 @@
                     (compile-defun name expr env tempfile))))
         (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))
-     , at body))
-
 (defun jvm-compile (name &optional definition)
   (unless definition
     (resolve name) ;; Make sure the symbol has been resolved by the autoloader
@@ -8422,6 +8411,19 @@
       (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))
+     , at body))
+
+
+
 (defun jvm-compile-package (package-designator)
   (let ((pkg (if (packagep package-designator)
                  package-designator