(defmethod finalize-inheritance :after ((cl hyperobject-class))
"Initialize a hyperobject class. Calculates all class slots"
(finalize-subobjects cl)
(defmethod finalize-inheritance :after ((cl hyperobject-class))
"Initialize a hyperobject class. Calculates all class slots"
(finalize-subobjects cl)