marginally prettier native debugger banner

  Add a conditional newline before printing the thread object.

diff --git a/src/code/debug.lisp b/src/code/debug.lisp
index 014103c..6791ac9 100644 (file)
--- a/src/code/debug.lisp
+++ b/src/code/debug.lisp
@@ -583,7 +583,7 @@ reset to ~S."
   ;; definitely preferred, because the FORMAT alternative was acting odd.
   (pprint-logical-block (stream nil)
     (format stream
-            "debugger invoked on a ~S~@[ in thread ~A~]: ~2I~_~A"
+            "debugger invoked on a ~S~@[ in thread ~_~A~]: ~2I~_~A"
             (type-of condition)
             #!+sb-thread sb!thread:*current-thread*
             #!-sb-thread nil