-;;#+cmu
-;;(defmethod pcl::class-finalized-p ((cl ml-class))
-;; (and (not (null (slot-value cl 'pcl::wrapper)))
-;; (not (null (slot-value cl 'fmtstr-text)))))
-
-;;#+sbcl
-;;(defmethod sb-pcl::class-finalized-p ((cl ml-class))
-;; (and (not (null (slot-value cl 'sb-pcl::wrapper)))
-;; (not (null (slot-value cl 'fmtstr-text)))))
-