From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Wed, 23 Nov 2011 18:27:38 +0000 (+0200)
Subject: marginally prettier native debugger banner
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=c1564e03f9bcc3d3696acfed62197ac4026841d2;p=sbcl.git

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
--- 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