-#+cmu
-(defmethod pcl::class-finalized-p ((cl ml-class))
- (with-slots (wrapper fmtstr-text) cl
- (and (not (null wrapper))
- (not (null fmtstr-text)))))
-
-#+cmu
-(defmethod pcl:finalize-inheritance :after ((cl ml-class))
- (init-ml-class cl))
+;;#+cmu
+;;(defmethod pcl::class-finalized-p ((cl ml-class))
+;; (and (not (null (slot-value cl 'pcl::wrapper)))
+;; (not (null (slot-value cl 'fmtstr-text)))))