X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Ftarget-defstruct.lisp;h=91a361bf4dd2c319eeb07d5eef08de7b76c33c70;hb=0dea4acb4216f9ee1182a6dc49483ec8d42babc5;hp=2fb05f88f02463bc0def64d6b8714173428b3fa9;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/code/target-defstruct.lisp b/src/code/target-defstruct.lisp
index 2fb05f8..91a361b 100644
--- 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")
 
 ;;;; 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")