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

diff --git a/src/code/debug.lisp b/src/code/debug.lisp
index 14f2525..e50eb41 100644 (file)
--- 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&~@<debugger invoked on a ~S~@[ in thread ~A~]: ~
-                    ~2I~_~A~:>~%"
+                    ~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 (file)
--- 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"