+#+cmu
+(defmethod pcl:validate-superclass ((class ml-class) (superclass pcl::standard-class))
+ t)
+
+#+sbcl
+(defmethod sb-pcl:validate-superclass ((class ml-class) (superclass sb-pcl::standard-class))
+ t)
+
+#+cmu
+(defmethod pcl:validate-superclass ((class pcl::standard-class) (superclass ml-class))
+ t)
+
+#+sbcl
+(defmethod sb-pcl:validate-superclass ((class sb-pcl::standard-class) (superclass ml-class))
+ t)