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

[mevenson at common-lisp.net]

Author: mevenson
Date: Sat May  5 00:02:01 2012
New Revision: 13927

Log:
Provide text of last signalled error when *CURRENT-ERROR-DEPTH* is exceeded.

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	Fri May  4 06:52:33 2012	(r13926)
+++ trunk/abcl/src/org/armedbear/lisp/signal.lisp	Sat May  5 00:02:01 2012	(r13927)
@@ -67,8 +67,8 @@
     (let ((*current-error-depth* (1+ *current-error-depth*)))
       (cond ((> *current-error-depth* *maximum-error-depth*)
              (%format *debug-io*
-                      "~%Maximum error depth exceeded (~D nested errors).~%"
-                      *current-error-depth*)
+                      "~%Maximum error depth exceeded (~D nested errors) with '~A'.~%"
+                      *current-error-depth* condition)
              (if (fboundp 'internal-debug)
                  (internal-debug)
                  (quit)))