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

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Wed Aug  1 13:49:12 2012
New Revision: 14038

Log:
Make the JVM exit with a non-zero (89) value
when we have errors nesting too deep.

Helps Mark write bisect programs :-)

Modified:
   trunk/abcl/src/org/armedbear/lisp/signal.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/signal.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/signal.lisp	Wed Aug  1 09:16:09 2012	(r14037)
+++ trunk/abcl/src/org/armedbear/lisp/signal.lisp	Wed Aug  1 13:49:12 2012	(r14038)
@@ -71,7 +71,7 @@
                       *current-error-depth* condition)
              (if (fboundp 'internal-debug)
                  (internal-debug)
-                 (quit)))
+                 (quit :status 89))) ;; it's a prime and a fibonacci!
             (t
              (invoke-debugger condition))))))