From: Stas Boukarev <stassats@gmail.com>
Date: Mon, 13 May 2013 15:40:20 +0000 (+0400)
Subject: Fix describe-object for characters.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=7553f9ddede4fdbd2212b15694925fde95d1f2dd;p=sbcl.git

Fix describe-object for characters.

Don't prefix lines with ":_".
---

diff --git a/src/code/describe.lisp b/src/code/describe.lisp
index 17dc2fb..8f64b6a 100644
--- a/src/code/describe.lisp
+++ b/src/code/describe.lisp
@@ -204,8 +204,8 @@
 
 (defmethod describe-object ((x character) s)
   (print-standard-describe-header x s)
-  (format s "~%:_Char-code: ~S" (char-code x))
-  (format s "~%:_Char-name: ~A~%_" (char-name x)))
+  (format s "~%Char-code: ~S" (char-code x))
+  (format s "~%Char-name: ~A" (char-name x)))
 
 (defmethod describe-object ((x array) s)
   (print-standard-describe-header x s)