Changeset 14087

Timestamp:

08/14/12 19:33:04 (8 years ago)

Author:

rschlatte

Message:

Fix return value of (compile nil fn)

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

File:

• trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp (modified) (1 diff)

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

@@ -7480 +7480 @@
     (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)