X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fprint.lisp;h=4676332e4926834faa0a04c4bbb000496fa865a7;hb=bd2df60f7c3f579a9c7610925c79a0e783adaa0e;hp=276ce951ce3621f5b3d61506de0a484e2211c519;hpb=d61819dea7797e94d996efc48883261392ec63ba;p=sbcl.git

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