0.pre7.4:

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

diff --git a/src/code/target-defstruct.lisp b/src/code/target-defstruct.lisp
index 2fb05f8..91a361b 100644 (file)
--- a/src/code/target-defstruct.lisp
+++ b/src/code/target-defstruct.lisp
@@ -9,8 +9,7 @@
 
 (in-package "SB!KERNEL")
 
-(file-comment
-  "$Header$")
+(/show0 "target-defstruct.lisp 12")
 \f
 ;;;; structure frobbing primitives
 
@@ -212,6 +211,7 @@
                   (slots (dd-slots dd) (cdr slots)))
                  ((or (null slots)
                       (and (not *print-readably*)
+                           *print-length*
                            (>= index *print-length*)))
                   (if (null slots)
                       (write-string ")" stream)
@@ -387,3 +387,5 @@
                             (dsd-type dsd)
                             new-value))))
            (setf (%instance-ref structure (dsd-index dsd)) new-value)))))
+
+(/show0 "target-defstruct.lisp end of file")