X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fprint.lisp;h=ce3e83670cbad373e44895c7aa534a79cca7c6c6;hb=dae76a317682df7472ee85d1a0f6a0248801a6ae;hp=3556649b5e682d893bc6b5985bb250f57592cbe4;hpb=cf3e11a77e89bc729595a08fc52ece7bc6b4430e;p=sbcl.git

diff --git a/src/code/print.lisp b/src/code/print.lisp
index 3556649..ce3e836 100644
--- 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)