1.0.39.7: Make TRACE :ENCAPSULATE NIL work on PPC.

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

diff --git a/src/code/print.lisp b/src/code/print.lisp
index 276ce95..4676332 100644 (file)
--- a/src/code/print.lisp
+++ b/src/code/print.lisp
@@ -314,9 +314,9 @@
            (when type
              (write (type-of object) :stream stream :circle nil
                     :level nil :length nil)
-             (write-char #\space stream))
+             (write-char #\space stream)
+             (pprint-newline :fill stream))
            (when body
-             (pprint-newline :fill stream)
              (funcall body))
            (when identity
              (when (or body (not type))