(defun %default-structure-pretty-print (structure stream)
(let* ((layout (%instance-layout structure))
(defun %default-structure-pretty-print (structure stream)
(let* ((layout (%instance-layout structure))
(pprint-newline :linear stream))))))))
(defun %default-structure-ugly-print (structure stream)
(let* ((layout (%instance-layout structure))
(pprint-newline :linear stream))))))))
(defun %default-structure-ugly-print (structure stream)
(let* ((layout (%instance-layout structure))