0.pre7.31:

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

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