0.8.13.49

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

diff --git a/src/code/print.lisp b/src/code/print.lisp
index 3556649..ce3e836 100644 (file)
--- a/src/code/print.lisp
+++ b/src/code/print.lisp
@@ -249,15 +249,12 @@
           (when type
             (write (type-of object) :stream stream :circle nil
                    :level nil :length nil)
-            (when (or body identity)
-              (write-char #\space stream)
-              (pprint-newline :fill stream)))
+            (write-char #\space stream))
           (when body
             (funcall body))
           (when identity
-            (when body
-              (write-char #\space stream)
-              (pprint-newline :fill stream))
+            (when (or body (not type))
+              (write-char #\space stream))
             (write-char #\{ stream)
             (write (get-lisp-obj-address object) :stream stream
                    :radix nil :base 16)