X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fpcl%2Fprint-object.lisp;h=7711dab7fd336028ec925f4e856645b5fa6c4f09;hb=8ac4167586be6db0ab26afa7ab6f326bb07c1a55;hp=b5c25007860b26487bbbdc318a84dd4311155620;hpb=b2a467878ff55db8f1c1f21b7b41031211ec5e9e;p=sbcl.git

diff --git a/src/pcl/print-object.lisp b/src/pcl/print-object.lisp
index b5c2500..7711dab 100644
--- a/src/pcl/print-object.lisp
+++ b/src/pcl/print-object.lisp
@@ -46,7 +46,10 @@
   (fmakunbound 'print-object)
   (defgeneric print-object (object stream))
   (defmethod print-object ((x t) stream)
-    (print-unreadable-object (x stream :type t :identity t))))
+    (if *print-pretty*
+        (pprint-logical-block (stream nil)
+          (print-unreadable-object (x stream :type t :identity t)))
+        (print-unreadable-object (x stream :type t :identity t)))))
 (/show0 "done replacing placeholder PRINT-OBJECT with DEFGENERIC")
 
 ;;;; a hook called by the printer to take care of dispatching to PRINT-OBJECT