(multiple-value-bind (description named-p elements)
(inspected-parts *inspected*)
(tty-display-inspected-parts description named-p elements s)
(multiple-value-bind (description named-p elements)
(inspected-parts *inspected*)
(tty-display-inspected-parts description named-p elements s)
(defmethod inspected-parts ((object array))
(let* ((length (min (array-total-size object) *inspect-length*))
(defmethod inspected-parts ((object array))
(let* ((length (min (array-total-size object) *inspect-length*))