r3126: *** empty log message ***

[kmrcl.git] / ml-class.lisp

diff --git a/ml-class.lisp b/ml-class.lisp
index 902c1c134422676cd7f62584237e9ffb95337fd2..9b5f08520927d14d8edfd91a92b4aa9c29454adc 100644 (file)
--- a/ml-class.lisp
+++ b/ml-class.lisp
@@ -11,7 +11,7 @@
 ;;;; in Text, HTML, and XML formats. This includes hyperlinking
 ;;;; capability and sub-objects.
 ;;;;
-;;;; $Id: ml-class.lisp,v 1.19 2002/10/16 23:34:33 kevin Exp $
+;;;; $Id: ml-class.lisp,v 1.21 2002/10/18 07:28:57 kevin Exp $
 ;;;;
 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -76,6 +76,10 @@ Format is ((field-name field-lookup-func other-link-params) ...)")
 (defmethod pcl:finalize-inheritance :after ((cl ml-class))
   (init-ml-class cl))
 
+#+scl
+(defmethod clos:finalize-inheritance :after ((cl ml-class))
+  (init-ml-class cl))
+
 
 #+sbcl
 (defmethod sb-pcl:finalize-inheritance :after ((cl ml-class))
@@ -86,6 +90,10 @@ Format is ((field-name field-lookup-func other-link-params) ...)")
 (defmethod pcl:validate-superclass ((class ml-class) (superclass pcl::standard-class))
   t)
 
+#+scl
+(defmethod clos:validate-superclass ((class ml-class) (superclass standard-class))
+  t)
+
 #+sbcl
 (defmethod sb-pcl:validate-superclass ((class ml-class) (superclass sb-pcl::standard-class))
   t)
@@ -98,16 +106,6 @@ Format is ((field-name field-lookup-func other-link-params) ...)")
 (defmethod clos: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)))))
-
-;;#+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)))))
-
 #+lispworks
 (defmethod clos:process-a-class-option ((class ml-class)
                                        (name (eql :title))