0.pre7.90:

[sbcl.git] / src / code / target-defstruct.lisp

diff --git a/src/code/target-defstruct.lisp b/src/code/target-defstruct.lisp
index 864a436..3937071 100644 (file)
--- a/src/code/target-defstruct.lisp
+++ b/src/code/target-defstruct.lisp
@@ -412,11 +412,9 @@
             (write-char #\space stream)
             (pprint-newline :linear stream))))))))
 (defun %default-structure-ugly-print (structure stream)
-  (/show0 "entering %DEFAULT-STRUCTURE-UGLY-PRINT")
   (let* ((layout (%instance-layout structure))
         (name (sb!xc:class-name (layout-class layout)))
         (dd (layout-info layout)))
-    (/show0 "got LAYOUT, NAME, and DD")
     (descend-into (stream)
       (write-string "#S(" stream)
       (prin1 name stream)
@@ -441,15 +439,11 @@
           stream))))))
 (defun default-structure-print (structure stream depth)
   (declare (ignore depth))
-  (/show0 "entering DEFAULT-STRUCTURE-PRINT")
   (cond ((funcallable-instance-p structure)
-        (/show0 "in FUNCALLABLE-INSTANCE-P case")
         (print-unreadable-object (structure stream :identity t :type t)))
        (*print-pretty*
-        (/show0 "in *PRINT-PRETTY* case")
         (%default-structure-pretty-print structure stream))
        (t
-        (/show0 "in ugly-print case")
         (%default-structure-ugly-print structure stream))))
 (def!method print-object ((x structure-object) stream)
   (default-structure-print x stream *current-level*))