Ignore:
Timestamp:
08/14/12 19:33:04 (9 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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

    r14082 r14087  
    74807480    (setf definition (fdefinition name)))
    74817481  (when (compiled-function-p definition)
    7482     (return-from jvm-compile (values name nil nil)))
     7482    (return-from jvm-compile (values (or name definition) nil nil)))
    74837483  (let ((catch-errors *catch-errors*)
    74847484        (warnings-p nil)
Note: See TracChangeset for help on using the changeset viewer.