+ ;; KLUDGE: during the build process with SB-SHOW, we can sometimes
+ ;; attempt to print out a PCL object (with null LAYOUT-INFO).
+ #!+sb-show
+ (when (null dd)
+ (pprint-logical-block (stream nil :prefix "#<" :suffix ">")
+ (prin1 name stream)
+ (write-char #\space stream)
+ (write-string "(no LAYOUT-INFO)"))
+ (return-from %default-structure-pretty-print nil))
+ ;; the structure type doesn't count as a component for
+ ;; *PRINT-LEVEL* processing. We can likewise elide the logical
+ ;; block processing, since all we have to print is the type name.
+ ;; -- CSR, 2004-10-05
+ (when (and dd (null (dd-slots dd)))
+ (write-string "#S(" stream)
+ (prin1 name stream)
+ (write-char #\) stream)
+ (return-from %default-structure-pretty-print nil))