(defmethod print-object ((obj hyperobject) (s stream))
(print-unreadable-object (obj s :type t :identity t)
(let ((view (get-category-view obj :compact-text)))
(defmethod print-object ((obj hyperobject) (s stream))
(print-unreadable-object (obj s :type t :identity t)
(let ((view (get-category-view obj :compact-text)))