X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-defstruct.lisp;h=91a361bf4dd2c319eeb07d5eef08de7b76c33c70;hb=ea36d3d79b9dfe3598faca5e267efd5980b94d4a;hp=8942ffc1051d45735e5172cfe7488466007b0ab7;hpb=ce02ab2ecd9c6ae2e570abd8c93ebf3be55bbdad;p=sbcl.git

diff --git a/src/code/target-defstruct.lisp b/src/code/target-defstruct.lisp
index 8942ffc..91a361b 100644
--- a/src/code/target-defstruct.lisp
+++ b/src/code/target-defstruct.lisp
@@ -211,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)