X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fprint.lisp;h=8e6e0c8d050274675d9af8313c98e398c063b747;hb=1f03c7f326823245708a84af86b31ac72bdb1742;hp=31b48ab8e806cc287eaafbdb6c63ede7f16daa66;hpb=2a1df4bcc815f763fac346f32fbe535b39a0d2e1;p=sbcl.git

diff --git a/src/code/print.lisp b/src/code/print.lisp
index 31b48ab..8e6e0c8 100644
--- a/src/code/print.lisp
+++ b/src/code/print.lisp
@@ -316,10 +316,12 @@
                     :level nil :length nil)
              (write-char #\space stream))
            (when body
+             (pprint-newline :fill stream)
              (funcall body))
            (when identity
              (when (or body (not type))
                (write-char #\space stream))
+             (pprint-newline :fill stream)
              (write-char #\{ stream)
              (write (get-lisp-obj-address object) :stream stream
                     :radix nil :base 16)
@@ -332,9 +334,9 @@
            (pprint-logical-block (stream nil :prefix "#<" :suffix ">")
              (print-description)))
           (t
-            (write-string "#<" stream)
-            (print-description)
-            (write-char #\> stream))))
+           (write-string "#<" stream)
+           (print-description)
+           (write-char #\> stream))))
   nil)
 
 ;;;; OUTPUT-OBJECT -- the main entry point