1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
|
<HTML>
<HEAD>
<TITLE>Brief Guide to CLOS: Quick reference</TITLE>
</HEAD>
<BODY>
<A HREF="CLOS-guide-7.html"><IMG SRC="prev.gif" ALT="Previous"></A>
<IMG SRC="next.gif" ALT="Next">
<A HREF="CLOS-guide.html#toc8"><IMG SRC="toc.gif" ALT="Contents"></A>
<HR>
<H2><A NAME="s8">8. Quick reference</A></H2>
<P>Square brackets ("[" and "]") indicate optional elements. A vertical
bar ("|") indicates an alternative. Thing* means zero or more
occurrence of thing, thing+ means one or more occurrence. "{" and "}"
are used for grouping.</P>
<H2><A NAME="ss8.1">8.1 Defining a class</A></H2>
<P>
<BLOCKQUOTE><CODE>
<PRE>
(DEFCLASS class-name (superclass-name*)
(slot-description*))
</PRE>
</CODE></BLOCKQUOTE>
</P>
<H2><A NAME="ss8.2">8.2 Slot descriptions</A></H2>
<P><CODE>(slot-name slot-option*)</CODE>
<DL>
<DT><B>:ACCESSOR</B><DD><P>function-name</P>
<DT><B>:INITFORM</B><DD><P>expression</P>
<DT><B>:INITARG</B><DD><P>keyword-symbol</P>
</DL>
</P>
<H2><A NAME="ss8.3">8.3 Making instances</A></H2>
<P><CODE>(MAKE-INSTANCE class {initarg value}*)</CODE></P>
<H2><A NAME="ss8.4">8.4 Method definitions</A></H2>
<P><CODE>(DEFMETHOD generic-function-name [qualifier] specialized-lambda-list
form*)</CODE>
where
<UL>
<LI> generic-function-name is a symbol</LI>
<LI> qualifier is :BEFORE, :AFTER, :AROUND, or else omitted</LI>
<LI> specialized-lambda-list is
( {variable | (variable class-name)}* )</LI>
</UL>
</P>
<H2><A NAME="ss8.5">8.5 Some functions</A></H2>
<H3>(DESCRIBE instance)</H3>
<H3>(DESCRIBE class)</H3>
<H3>(FIND-CLASS class-name) -> class</H3>
<P>As in:
<BLOCKQUOTE><CODE>
<PRE>
<cl> (FIND-CLASS 'teacher)
#<STANDARD-CLASS TEACHER {90374C5}>
</PRE>
</CODE></BLOCKQUOTE>
</P>
<H3>(CLASS-NAME class) -> symbol</H3>
<P>As in:
<BLOCKQUOTE><CODE>
<PRE>
<cl> (class-name (find-class 'teacher))
TEACHER
</PRE>
</CODE></BLOCKQUOTE>
</P>
<H3>(CLASS-PRECEDENCE-LIST class) -> list of classes</H3>
<P>[This is called <CODE>(CLOS::CLASS-PRECEDENCE-LIST class)</CODE> in CLISP.]</P>
<P>[This is called <CODE>(PCL:CLASS-PRECEDENCE-LIST class)</CODE> in CMUCL.]</P>
<P>As in (CMUCL):
<BLOCKQUOTE><CODE>
<PRE>
* (pcl:class-precedence-list (find-class 'teacher))
(#<Standard-Class TEACHER {902FF6D}> #<Standard-Class PERSON {9010ADD}>
#<Standard-Class STANDARD-OBJECT {56753B5}>
#<Slot-Class PCL::SLOT-OBJECT {567545D}> #<Built-In-Class INSTANCE {567BDDD}>
#<Built-In-Class T {567B68D}>)
</PRE>
</CODE></BLOCKQUOTE>
</P>
<H3>(CLASS-DIRECT-SUPERCLASSES class) -> list of classes</H3>
<P>[This is called <CODE>(CLOS::CLASS-DIRECT-SUPERCLASSES</CODE> class) in CLISP.]</P>
<P>[This is called <CODE>(PCL:CLASS-DIRECT-SUPERCLASSES</CODE> class) in CMU.]</P>
<P>As in (CMUCL):
<BLOCKQUOTE><CODE>
<PRE>
* (pcl:class-direct-superclasses (find-class 'teacher))
(#<Standard-Class PERSON {9010ADD}>)
</PRE>
</CODE></BLOCKQUOTE>
</P>
<H3>(CLASS-DIRECT-SUBCLASSES class) -> list of classes</H3>
<P>[This isn't available in CLISP.]</P>
<P>[This is called <CODE>(PCL:CLASS-DIRECT-SUBCLASSES</CODE> class) in CMU.]</P>
<P>As in:
<BLOCKQUOTE><CODE>
<PRE>
* (pcl:class-direct-subclasses (find-class 'teacher))
(#<Standard-Class MATHS-TEACHER {9040E9D}>)
</PRE>
</CODE></BLOCKQUOTE>
</P>
<HR>
<A HREF="CLOS-guide-7.html"><IMG SRC="prev.gif" ALT="Previous"></A>
<IMG SRC="next.gif" ALT="Next">
<A HREF="CLOS-guide.html#toc8"><IMG SRC="toc.gif" ALT="Contents"></A>
</BODY>
</HTML>
|
