(:metaclass hyperobject-class)
(:description "Basic hyperobject class"))
-(defmethod print-object ((obj hyperobject) (s stream))
+(defmethod print-object ((obj hyperobject) s)
(print-unreadable-object (obj s :type t :identity nil)
(funcall (obj-data-printer (get-view-id obj :compact-text))
obj s nil)))
:lookup nil :lookup-keys nil))
-(defmethod print-object ((obj subobject) (s stream))
+(defmethod print-object ((obj subobject) s)
(print-unreadable-object (obj s :type t)
(format s "~S" (name-slot obj))))
(link-parameters :type list :initform nil :initarg :link-parameters
:reader link-parameters)))
-(defmethod print-object ((obj hyperlink) (s stream))
+(defmethod print-object ((obj hyperlink) s)
(print-unreadable-object (obj s :type t :identity t)
(format s "~S" (name obj))))