Correct stream being modified to be *DEBUG-IO* bound streams.

parent 21ab4021
......@@ -130,7 +130,7 @@ called by BREAK. This hook is run before *DEBUGGER-HOOK*.")
(*print-structure* nil)
(*debug-condition* condition)
(level *debug-level*))
(clear-input)
(clear-input *debug-io*)
(if (> level 0)
(with-simple-restart (abort "Return to debug level ~D." level)
(debug-loop))
......
......@@ -66,7 +66,8 @@
(signal condition)
(let ((*current-error-depth* (1+ *current-error-depth*)))
(cond ((> *current-error-depth* *maximum-error-depth*)
(%format t "~%Maximum error depth exceeded (~D nested errors).~%"
(%format *debug-io*
"~%Maximum error depth exceeded (~D nested errors).~%"
*current-error-depth*)
(if (fboundp 'internal-debug)
(internal-debug)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment