X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-defstruct.lisp;h=3937071758563cb12b0dbee688db28c2c7181d45;hb=cd176690400f8b6fa23faa4dc6fa8494bcbce480;hp=864a4367287ea1b8fb528cf0f156b5d91ac425ff;hpb=9a25385c551e986db84d31dff5f906327495177f;p=sbcl.git

diff --git a/src/code/target-defstruct.lisp b/src/code/target-defstruct.lisp
index 864a436..3937071 100644
--- 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*))