;;; These specials are used by ERROR-ERROR to track the success of recovery
;;; attempts.
(defvar *error-error-depth* 0)
;;; These specials are used by ERROR-ERROR to track the success of recovery
;;; attempts.
(defvar *error-error-depth* 0)
(defun error-error (&rest messages)
(let ((*error-error-depth* (1+ *error-error-depth*)))
(when (> *error-throw-up-count* 50)
(defun error-error (&rest messages)
(let ((*error-error-depth* (1+ *error-error-depth*)))
(when (> *error-throw-up-count* 50)
(case *error-error-depth*
(1)
(2
(stream-cold-init-or-reset))
(3
(incf *error-throw-up-count*)
(case *error-error-depth*
(1)
(2
(stream-cold-init-or-reset))
(3
(incf *error-throw-up-count*)