Changeset 13927

Timestamp:

05/05/12 07:02:01 (12 years ago)

Author:

Mark Evenson

Message:

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

File:

• trunk/abcl/src/org/armedbear/lisp/signal.lisp (modified) (1 diff)

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

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