(print-unreadable-object (obj s :type t :identity nil)
(funcall (obj-data-printer (get-view-id obj :compact-text))
obj s nil)))
(print-unreadable-object (obj s :type t :identity nil)
(funcall (obj-data-printer (get-view-id obj :compact-text))
obj s nil)))