projects
/
kmrcl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
fa5bcb8
)
r2995: *** empty log message ***
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sun, 13 Oct 2002 23:08:40 +0000
(23:08 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sun, 13 Oct 2002 23:08:40 +0000
(23:08 +0000)
ml-class.lisp
patch
|
blob
|
history
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.
;;;;
;;;; 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:5
0 kevin Exp $
+;;;; $Id: ml-class.lisp,v 1.
7 2002/10/13 23:08:4
0 kevin Exp $
;;;;
;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
;;;;
;;;; 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))
(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))
#+cmu
(defmethod pcl:finalize-inheritance :after ((cl ml-class))
(init-ml-class cl))