r2995: *** empty log message ***

diff --git a/ml-class.lisp b/ml-class.lisp
index b36905507e566d12699aea3f1a6086b112aafd73..84845b6d573e77cac0d58691280ec097b689ceb0 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.6 2002/10/13 17:39:50 kevin Exp $
+;;;; $Id: ml-class.lisp,v 1.7 2002/10/13 23:08:40 kevin Exp $
 ;;;;
 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -89,6 +89,12 @@ 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))
+  (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))