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

[Erik Huelsmann]

Author: ehuelsmann
Date: Wed May 20 16:54:04 2009
New Revision: 11904

Log:
Followup to r11901: better mirror the old behaviour.

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 16:54:04 2009
@@ -8403,8 +8403,8 @@
                 (sys::%format t "; UNSUPPORTED FEATURE: ~A~%" c)
                 (sys::%format t "; Unable to compile ~S.~%"
                               (or name "top-level form"))
-                (precompiler::precompile name definition)
-                t)))
+                (return-from jvm-compile
+                  (precompiler::precompile name definition))))
          (style-warning
           #'(lambda (c) (declare (ignore c))
               (setf warnings-p t) nil))