(defparameter *slot-options*
'(:value-type :print-formatter :description :user-name
:subobject :hyperlink :hyperlink-parameters
(defparameter *slot-options*
'(:value-type :print-formatter :description :user-name
:subobject :hyperlink :hyperlink-parameters