X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=ml-class.lisp;fp=ml-class.lisp;h=84845b6d573e77cac0d58691280ec097b689ceb0;hb=a021c083c78592e9e8135418821b7f32daa04f79;hp=b36905507e566d12699aea3f1a6086b112aafd73;hpb=fa5bcb8e115b595b8d277bd1cd4f5daa4e776397;p=kmrcl.git

diff --git a/ml-class.lisp b/ml-class.lisp
index b369055..84845b6 100644
--- 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))