"~&(no restarts: If you didn't do this on purpose, ~
please report it as a bug.)~%"))
(t
"~&(no restarts: If you didn't do this on purpose, ~
please report it as a bug.)~%"))
(t
"When set, avoid calling INVOKE-DEBUGGER recursively when errors occur while
executing in the debugger.")
"When set, avoid calling INVOKE-DEBUGGER recursively when errors occur while
executing in the debugger.")
(let* ((*debug-command-level* (1+ *debug-command-level*))
(*real-stack-top* (sb!di:top-frame))
(*stack-top* (or *stack-top-hint* *real-stack-top*))
(let* ((*debug-command-level* (1+ *debug-command-level*))
(*real-stack-top* (sb!di:top-frame))
(*stack-top* (or *stack-top-hint* *real-stack-top*))
;;; FIXME: We could probably use INTERACTIVE-EVAL for much of this logic.
(defun debug-eval-print (expr)
(/noshow "entering DEBUG-EVAL-PRINT" expr)
;;; FIXME: We could probably use INTERACTIVE-EVAL for much of this logic.
(defun debug-eval-print (expr)
(/noshow "entering DEBUG-EVAL-PRINT" expr)