Provide text of last signalled error when *CURRENT-ERROR-DEPTH* is exceeded.

parent 17e6ca03
......@@ -67,8 +67,8 @@
(let ((*current-error-depth* (1+ *current-error-depth*)))
(cond ((> *current-error-depth* *maximum-error-depth*)
(%format *debug-io*
"~%Maximum error depth exceeded (~D nested errors).~%"
*current-error-depth*)
"~%Maximum error depth exceeded (~D nested errors) with '~A'.~%"
*current-error-depth* condition)
(if (fboundp 'internal-debug)
(internal-debug)
(quit)))
......
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