From a021c083c78592e9e8135418821b7f32daa04f79 Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Sun, 13 Oct 2002 23:08:40 +0000
Subject: [PATCH] r2995: *** empty log message ***

---
 ml-class.lisp | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

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