[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: MetaClass
- To: "@lll-winken.UUCP"@arisia.xerox.com, milich%whuts@att.arpa
- Subject: Re: MetaClass
- From: kanderso@BBN.COM
- Date: Fri, 27 Jan 89 12:20:16 -0500
- Cc: CommonLoops.PA@Xerox.COM
- In-reply-to: Your message of Fri, 27 Jan 89 07:24:10 -0800. <8901271524.AA17142@arisia.Xerox.COM>
- Redistributed: CommonLoops.PA
Date: Fri, 27 Jan 89 07:24:10 PST
From: "@lll-winken.UUCP"@Xerox.COM, milich%whuts@att.ARPA
Message-Id: <8901271524.AA17142@arisia.Xerox.COM>
Received: by lll-winken.llnl.gov (smail2.5)
id AA13802; 27 Jan 89 06:52:02 PST (Fri)
Received: by att.ATT.COM (smail2.6 - att-ih)
id AA00447; 27 Jan 89 08:45:56 CST (Fri)
To: CommonLoops.PA@Xerox.COM
Subject: MetaClass
I am trying to define my own metaclass using the (:metaclass my-meta-class)
option. I'm not having much success. Below is a simple example:
(defclass my-meta-class (standard-class) (mc-a mc-b) )
(defclass my-class () (a b) )
(defclass my-class1 (my-class) (c d) (:metaclass my-meta-class))
Why doesn't this work!! What am I doing wrong?
I am using the latest version of pcl (12/7/88).
Please Help.
Thank you,
greg milich milich@whuts.att.com
Many people ask me this. As it stands, your metaclass is
incompatiable with standard-class (the metaclass of my-class1). Add
this mixin to metaclasses that can be mixed with standard-class:
(defclass compatible-class-mixin
()
()
(:documentation
"A metaclass mixin that provides compatibility with standard-class."))
(defmethod check-super-metaclass-compatibility
((class compatibile-class-mixin) (super standard-class))
t)
By default metaclasses are not compatible unless you say they are.
This prevents oil from fixing with water.
k
- Follow-Ups:
- MetaClass
- From: Joe Mohan <mohan%hpljsm@hplabs.hp.com>
- References:
- MetaClass
- From: "@lll-winken.UUCP"@Xerox.COM, milich%whuts@att.ARPA