X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fdescribe.lisp;h=dc49e9204c826d9c88d8939269cf0572b7f8c2b6;hb=63cef087068afc157283c0a05ae1f16b962303aa;hp=e04d40cb987e09281f7d95ffb93d2e784b32a144;hpb=0c7ffa8fb85a94482814835c9f28abfd0400ab99;p=sbcl.git

diff --git a/src/pcl/describe.lisp b/src/pcl/describe.lisp
index e04d40c..dc49e92 100644
--- a/src/pcl/describe.lisp
+++ b/src/pcl/describe.lisp
@@ -59,7 +59,7 @@
 	  (:class  (push slotd class-slotds))
 	  (otherwise (push slotd other-slotds))))
       (setq max-slot-name-length  (min (+ max-slot-name-length 3) 30))
-      (format stream "~%~@<~S ~_is an instance of class ~S.~:>" object class)
+      (format stream "~&~@<~S ~_is an instance of class ~S.~:>" object class)
 
       ;; Now that we know the width, we can print.
       (when instance-slotds