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

[rschlatte at common-lisp.net]

Author: rschlatte
Date: Tue Aug 14 12:33:04 2012
New Revision: 14087

Log:
Fix return value of (compile nil fn)

- Reported by Vladimir Sedach August 11, 2012 in mail "compile slightly
  broken for compiled functions"

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	Tue Aug 14 05:40:56 2012	(r14086)
+++ trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	Tue Aug 14 12:33:04 2012	(r14087)
@@ -7479,7 +7479,7 @@
     (resolve name) ;; Make sure the symbol has been resolved by the autoloader
     (setf definition (fdefinition name)))
   (when (compiled-function-p definition)
-    (return-from jvm-compile (values name nil nil)))
+    (return-from jvm-compile (values (or name definition) nil nil)))
   (let ((catch-errors *catch-errors*)
         (warnings-p nil)
         (failure-p nil)