[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
changes to metabraid
- To: CommonLoops.PA@Xerox.COM
- Subject: changes to metabraid
- From: Gregor.pa@Xerox.COM
- Date: Mon, 11 Dec 89 11:11 PST
- Fcc: BD:>Gregor>mail>outgoing-mail-8.text.newest
- Line-fold: no
This message is of primary importance to users of the metaobject protocol.
The following dialog with the forthcoming version of PCL shows that some
important changes have been made to the inheritance structure of standard
metaclasses.
PCL> (describe (find-class 't))
#<Built-In-Class T 126406776> is a class, it is an instance of BUILT-IN-CLASS.
Its proper name is T.
The direct superclasses are: (), and the direct
subclasses are: (STANDARD-OBJECT). The class precedence list is:
(T)
There are 120 methods specialized for this class.
PCL> (describe (find-class 'standard-class))
#<Standard-Class STANDARD-CLASS 126407116> is a class, it is an instance of STANDARD-CLASS.
Its proper name is STANDARD-CLASS.
The direct superclasses are: (STD-CLASS), and the direct
subclasses are: (). The class precedence list is:
(STANDARD-CLASS STD-CLASS PCL-CLASS CLASS DEFINITION-SOURCE-MIXIN METAOBJECT STANDARD-OBJECT T)
There are 10 methods specialized for this class.
PCL> (describe (find-class 'funcallable-standard-class))
#<Standard-Class FUNCALLABLE-STANDARD-CLASS 126406556> is a class, it is an instance of STANDARD-CLASS.
Its proper name is FUNCALLABLE-STANDARD-CLASS.
The direct superclasses are: (STD-CLASS), and the direct
subclasses are: (). The class precedence list is:
(FUNCALLABLE-STANDARD-CLASS STD-CLASS PCL-CLASS CLASS DEFINITION-SOURCE-MIXIN METAOBJECT STANDARD-OBJECT T)
There are 9 methods specialized for this class.
PCL> (describe (find-class 'built-in-class))
#<Standard-Class BUILT-IN-CLASS 126406576> is a class, it is an instance of STANDARD-CLASS.
Its proper name is BUILT-IN-CLASS.
The direct superclasses are: (PCL-CLASS), and the direct
subclasses are: (). The class precedence list is:
(BUILT-IN-CLASS PCL-CLASS CLASS DEFINITION-SOURCE-MIXIN METAOBJECT STANDARD-OBJECT T)
There are 6 methods specialized for this class.
PCL> (describe (find-class 'forward-referenced-class))
#<Standard-Class FORWARD-REFERENCED-CLASS 126407016> is a class, it is an instance of STANDARD-CLASS.
Its proper name is FORWARD-REFERENCED-CLASS.
The direct superclasses are: (CLASS), and the direct
subclasses are: (). The class precedence list is:
(FORWARD-REFERENCED-CLASS CLASS DEFINITION-SOURCE-MIXIN METAOBJECT STANDARD-OBJECT T)
There are 3 methods specialized for this class.
PCL> (describe (find-class 'pcl-class))
#<Standard-Class PCL-CLASS 126406476> is a class, it is an instance of STANDARD-CLASS.
Its proper name is PCL-CLASS.
The direct superclasses are: (CLASS), and the direct
subclasses are: (BUILT-IN-CLASS STD-CLASS). The class precedence list is:
(PCL-CLASS CLASS DEFINITION-SOURCE-MIXIN METAOBJECT STANDARD-OBJECT T)
There are 4 methods specialized for this class.
PCL> (describe (find-class 'std-class))
#<Standard-Class STD-CLASS 126406416> is a class, it is an instance of STANDARD-CLASS.
Its proper name is STD-CLASS.
The direct superclasses are: (PCL-CLASS), and the direct
subclasses are: (FUNCALLABLE-STANDARD-CLASS STANDARD-CLASS). The class precedence list is:
(STD-CLASS PCL-CLASS CLASS DEFINITION-SOURCE-MIXIN METAOBJECT STANDARD-OBJECT T)
There are 52 methods specialized for this class.
-------