X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fprint.lisp;h=3a5207253611097272f7902a87d722789036bc6c;hb=4f64f131a7bca59d0dc8be9e74d05a7645f27e67;hp=5c6dd4f1826753e08dbaf23a07a5b04345c82f74;hpb=099d6dd1f6a5ac2ffec5c14d07a4b905322ef968;p=sbcl.git

diff --git a/src/code/print.lisp b/src/code/print.lisp
index 5c6dd4f..3a52072 100644
--- a/src/code/print.lisp
+++ b/src/code/print.lisp
@@ -236,21 +236,7 @@
 
 ;;;; support for the PRINT-UNREADABLE-OBJECT macro
 
-;;; MNA: cmucl-commit: Mon, 1 Jan 2001 01:30:53 -0800 (PST)
-;;; Correct the pretty printing by print-unreadable-object. Only attempt
-;;; to print pretty when the stream is a pretty-stream (and when *print-pretty*)
-;;; to ensure that all output goes to the same stream. 
-
-;;; MNA: cmucl-commit: Wed, 27 Dec 2000 05:24:30 -0800 (PST)
-;;; Have print-unreadable-object respect *print-pretty*.
-
-;;; Guts of print-unreadable-object.
-;;;
-;;; When *print-pretty* and the stream is a pretty-stream, format the object
-;;; within a logical block - pprint-logical-block does not rebind the stream
-;;; when it is already a pretty stream so output from the body will go to the
-;;; same stream.
-;;;
+;;; guts of PRINT-UNREADABLE-OBJECT
 (defun %print-unreadable-object (object stream type identity body)
   (when *print-readably*
     (error 'print-not-readable :object object))
@@ -271,9 +257,13 @@
 	     (write (get-lisp-obj-address object) :stream stream
 		    :radix nil :base 16)
 	     (write-char #\} stream))))
-    (cond ((and (sb!pretty:pretty-stream-p stream) *print-pretty*)
-            (pprint-logical-block (stream nil :prefix "#<" :suffix ">")
-                                  (print-description)))
+    (cond ((print-pretty-on-stream-p stream)
+	   ;; Since we're printing prettily on STREAM, format the
+	   ;; object within a logical block. PPRINT-LOGICAL-BLOCK does
+	   ;; not rebind the stream when it is already a pretty stream
+	   ;; so output from the body will go to the same stream.
+	   (pprint-logical-block (stream nil :prefix "#<" :suffix ">")
+	     (print-description)))
 	  (t
             (write-string "#<" stream)
             (print-description)
@@ -1514,14 +1504,8 @@
 
 ;;;; other leaf objects
 
-;;; MNA: cmucl-commit: Mon, 1 Jan 2001 03:41:18 -0800 (PST)
-;;; Fix output-character to escape the char-name. Reworking quote-string
-;;; to not write the delimiting quotes so that is can be used by
-;;; output-character.
-
-
-;;; If *PRINT-ESCAPE* is false, just do a WRITE-CHAR, otherwise output the
-;;; character name or the character in the #\char format.
+;;; If *PRINT-ESCAPE* is false, just do a WRITE-CHAR, otherwise output
+;;; the character name or the character in the #\char format.
 (defun output-character (char stream)
   (if (or *print-escape* *print-readably*)
       (let ((name (char-name char)))