(in-package "SB!KERNEL")
-(file-comment
- "$Header$")
+(/show0 "target-defstruct.lisp 12")
\f
;;;; structure frobbing primitives
(slots (dd-slots dd) (cdr slots)))
((or (null slots)
(and (not *print-readably*)
+ *print-length*
(>= index *print-length*)))
(if (null slots)
(write-string ")" stream)
(dsd-type dsd)
new-value))))
(setf (%instance-ref structure (dsd-index dsd)) new-value)))))
+
+(/show0 "target-defstruct.lisp end of file")