X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ferror-error.lisp;h=5a0873a94ac65b22f3c10f0babd01dbab53792ab;hb=b4831dc945c0754b3ba77881e67c8ea4d0a3d905;hp=96a7bc98ab3d182751d131c0a972b534c3529e9e;hpb=cea4896b2482b7b2b429c1631d774b4cfbc0efba;p=sbcl.git

diff --git a/src/code/error-error.lisp b/src/code/error-error.lisp
index 96a7bc9..5a0873a 100644
--- a/src/code/error-error.lisp
+++ b/src/code/error-error.lisp
@@ -20,18 +20,23 @@
 (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)
-      (throw 'sb!impl::top-level-catcher nil))
+      (/show0 "*ERROR-THROW-UP-COUNT* too big, trying THROW")
+      (throw 'sb!impl::toplevel-catcher nil))
     (case *error-error-depth*
       (1)
       (2
        (stream-cold-init-or-reset))
       (3
        (incf *error-throw-up-count*)
-       (throw 'sb!impl::top-level-catcher nil))
+       (/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)
-       (throw 'sb!impl::top-level-catcher nil)))
+       (/show0 "*ERROR-ERROR-DEPTH* too big, trying THROW")
+       (throw 'sb!impl::toplevel-catcher nil)))
 
     (with-standard-io-syntax
       (let ((*print-readably* nil))