(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))