(defparameter *class-options*
'(:title :print-slots :description :version :sql-name)
"List of class options for hyperobjects.")
(defparameter *slot-options*
(defparameter *class-options*
'(:title :print-slots :description :version :sql-name)
"List of class options for hyperobjects.")
(defparameter *slot-options*