From 13246b979ef66b5ba1b921c7bfade697354d494f Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Tue, 8 Nov 2005 20:35:18 +0000 Subject: [PATCH] 0.9.6.35: Minor fixes to the debugger ... some pretty-print magic for the debugger entrance message; ... the logic in the nested debugger condition cell error name seems wrong; make it right, I think --- src/code/debug.lisp | 8 ++++---- version.lisp-expr | 2 +- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/src/code/debug.lisp b/src/code/debug.lisp index 14f2525..e50eb41 100644 --- a/src/code/debug.lisp +++ b/src/code/debug.lisp @@ -520,7 +520,7 @@ reset to ~S." ;; the debugger does afterwards.) (format *error-output* "~2&~@~%" + ~2I~_~A~:@>~%" (type-of *debug-condition*) #!+sb-thread sb!thread:*current-thread* #!-sb-thread nil @@ -536,12 +536,12 @@ reset to ~S." '*debug-condition* ndc-type '*nested-debug-condition*)) - (when (typep condition 'cell-error) + (when (typep *nested-debug-condition* 'cell-error) ;; what we really want to know when it's e.g. an UNBOUND-VARIABLE: (format *error-output* "~&(CELL-ERROR-NAME ~S) = ~S~%" - '*debug-condition* - (cell-error-name *debug-condition*))))) + '*nested-debug-condition* + (cell-error-name *nested-debug-condition*))))) (let ((background-p (sb!thread::debugger-wait-until-foreground-thread *debug-io*))) diff --git a/version.lisp-expr b/version.lisp-expr index 76420fb..93edf13 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"0.9.6.34" +"0.9.6.35" -- 1.7.10.4