(defmethod allocate-instance
((class funcallable-standard-class) &rest initargs)
(declare (ignore initargs))
(unless (class-finalized-p class)
(finalize-inheritance class))
(defmethod allocate-instance
((class funcallable-standard-class) &rest initargs)
(declare (ignore initargs))
(unless (class-finalized-p class)
(finalize-inheritance class))