0.8.0.24:

[sbcl.git] / src / code / error-error.lisp

diff --git a/src/code/error-error.lisp b/src/code/error-error.lisp
index 0cd9a2f..5a0873a 100644 (file)
--- a/src/code/error-error.lisp
+++ b/src/code/error-error.lisp
@@ -20,7 +20,9 @@
 (defun error-error (&rest messages)
   (let ((*error-error-depth* (1+ *error-error-depth*)))
     (when (> *error-throw-up-count* 50)
+      (/show0 "*ERROR-THROW-UP-COUNT* too big, trying HALT")
       (%primitive sb!c:halt)
+      (/show0 "*ERROR-THROW-UP-COUNT* too big, trying THROW")
       (throw 'sb!impl::toplevel-catcher nil))
     (case *error-error-depth*
       (1)
@@ -28,9 +30,12 @@
        (stream-cold-init-or-reset))
       (3
        (incf *error-throw-up-count*)
+       (/show0 "*ERROR-ERROR-DEPTH* too big, trying THROW")
        (throw 'sb!impl::toplevel-catcher nil))
       (t
+       (/show0 "*ERROR-ERROR-DEPTH* too big, trying HALT")
        (%primitive sb!c:halt)
+       (/show0 "*ERROR-ERROR-DEPTH* too big, trying THROW")
        (throw 'sb!impl::toplevel-catcher nil)))
 
     (with-standard-io-syntax