Skip to content
Snippets Groups Projects
Commit 84ee7bd2 authored by emarsden's avatar emarsden
Browse files

In the debugger, display the package prefix when printing the name of

the condition that caused entry into the debugger.
parent 4978f6a7
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug.lisp,v 1.62 2003/07/20 11:02:48 gerd Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug.lisp,v 1.63 2003/08/08 11:36:25 emarsden Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -697,7 +697,7 @@ See the CMU Common Lisp User's Manual for more information. ...@@ -697,7 +697,7 @@ See the CMU Common Lisp User's Manual for more information.
;;; Print condition and invoke the TTY debugger. ;;; Print condition and invoke the TTY debugger.
;;; ;;;
(defun invoke-tty-debugger (condition) (defun invoke-tty-debugger (condition)
(format *error-output* "~2&~A~% [Condition of type ~A]~2&" (format *error-output* "~2&~A~% [Condition of type ~S]~2&"
(safe-condition-message *debug-condition*) (safe-condition-message *debug-condition*)
(type-of *debug-condition*)) (type-of *debug-condition*))
(unless (typep condition 'step-condition) (unless (typep condition 'step-condition)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment