0.7.4.3:

[sbcl.git] / src / code / describe.lisp

diff --git a/src/code/describe.lisp b/src/code/describe.lisp
index 7ea642d..35cd265 100644 (file)
--- a/src/code/describe.lisp
+++ b/src/code/describe.lisp
@@ -19,8 +19,8 @@
   #+sb-doc
   "Print a description of the object X."
   (let ((stream (out-synonym-of stream-designator)))
+    (fresh-line stream)
     (pprint-logical-block (stream nil)
-      (pprint-newline :mandatory stream)
       (describe-object x stream)
       (pprint-newline :mandatory stream)))
   (values))