(defmethod finalize-inheritance :after ((cl hyperobject-class))
"Initialize a hyperobject class. Calculates all class slots"
(finalize-subobjects cl)
- (finalize-compute-cached cl))
+ (finalize-compute-cached cl)
+ (init-hyperobject-class cl))
(eval-when (:compile-toplevel :load-toplevel :execute)
(when (>= (length (generic-function-lambda-list