X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdescribe.lisp;h=8f64b6ae1dbdf5c5251a4380417a4a890ef4a687;hb=829ced3e78a23ba153ba4db64e6ea6984c2313b6;hp=17dc2fbf57d7947813aba43d8a8cab441a1ac513;hpb=a0773e7d643c53e8626e49a560fb2b5ba6d8790e;p=sbcl.git

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)