From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Sun, 13 Oct 2002 23:08:40 +0000 (+0000)
Subject: r2995: *** empty log message ***
X-Git-Tag: v1.96~328
X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=commitdiff_plain;h=a021c083c78592e9e8135418821b7f32daa04f79

r2995: *** empty log message ***
---

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))