/[gcl]/gcl/pcl/sys-proclaim.lisp
ViewVC logotype

Diff of /gcl/pcl/sys-proclaim.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by camm, Mon Jun 17 05:43:43 2002 UTC revision 1.2 by camm, Tue Sep 23 21:48:34 2003 UTC
# Line 1  Line 1 
1    
2  (IN-PACKAGE "PCL")  (IN-PACKAGE "PCL")
3    (PROCLAIM '(FTYPE (FUNCTION (FIXNUM) T) POWER-OF-TWO-CEILING))
4    (PROCLAIM
5        '(FTYPE (FUNCTION (T) FUNCTION) CACHE-LIMIT-FN METHOD-CALL-FUNCTION
6                FAST-METHOD-CALL-FUNCTION))
7    (PROCLAIM '(FTYPE (FUNCTION (T) FIELD-TYPE) CACHE-FIELD))
8  (PROCLAIM  (PROCLAIM
9      '(FTYPE (FUNCTION (T) FIXNUM) ONE-INDEX-LIMIT-FN      '(FTYPE (FUNCTION (T) FIXNUM) ONE-INDEX-LIMIT-FN
10              N-N-ACCESSORS-LIMIT-FN CHECKING-LIMIT-FN PV-CACHE-LIMIT-FN              N-N-ACCESSORS-LIMIT-FN CHECKING-LIMIT-FN PV-CACHE-LIMIT-FN
11              ARG-INFO-NUMBER-REQUIRED DEFAULT-LIMIT-FN CACHE-COUNT              ARG-INFO-NUMBER-REQUIRED DEFAULT-LIMIT-FN CACHE-COUNT
12              CACHING-LIMIT-FN PV-TABLE-PV-SIZE EARLY-CLASS-SIZE              CACHING-LIMIT-FN PV-TABLE-PV-SIZE EARLY-CLASS-SIZE
13              CPD-COUNT FAST-INSTANCE-BOUNDP-INDEX))              CPD-COUNT FAST-INSTANCE-BOUNDP-INDEX))
 (PROCLAIM '(FTYPE (FUNCTION (T) FIELD-TYPE) CACHE-FIELD))  
 (PROCLAIM  
     '(FTYPE (FUNCTION (T) FUNCTION) CACHE-LIMIT-FN METHOD-CALL-FUNCTION  
             FAST-METHOD-CALL-FUNCTION))  
 (PROCLAIM '(FTYPE (FUNCTION (FIXNUM) T) POWER-OF-TWO-CEILING))  
14  (PROCLAIM  (PROCLAIM
15      '(FTYPE (FUNCTION (T) LIST) CACHE-OVERFLOW PV-TABLE-SLOT-NAME-LISTS      '(FTYPE (FUNCTION (T) LIST) CACHE-OVERFLOW PV-TABLE-SLOT-NAME-LISTS
16              PV-TABLE-CALL-LIST))              PV-TABLE-CALL-LIST))
# Line 23  Line 23 
23  (PROCLAIM  (PROCLAIM
24      '(FTYPE (FUNCTION (FIXNUM FIXNUM T) FIXNUM)      '(FTYPE (FUNCTION (FIXNUM FIXNUM T) FIXNUM)
25              COMPUTE-PRIMARY-CACHE-LOCATION))              COMPUTE-PRIMARY-CACHE-LOCATION))
 (PROCLAIM '(FTYPE (FUNCTION (T) (INTEGER 1 256)) CACHE-NKEYS))  
26  (PROCLAIM '(FTYPE (FUNCTION (T) (INTEGER 1 512)) CACHE-LINE-SIZE))  (PROCLAIM '(FTYPE (FUNCTION (T) (INTEGER 1 512)) CACHE-LINE-SIZE))
27    (PROCLAIM '(FTYPE (FUNCTION (T) (INTEGER 1 256)) CACHE-NKEYS))
28  (PROCLAIM '(FTYPE (FUNCTION (T) (OR CACHE NULL)) PV-TABLE-CACHE))  (PROCLAIM '(FTYPE (FUNCTION (T) (OR CACHE NULL)) PV-TABLE-CACHE))
29  (PROCLAIM  (PROCLAIM
30      '(FTYPE (FUNCTION (T T T) *)      '(FTYPE (FUNCTION (T T *) *) GET-EFFECTIVE-METHOD-FUNCTION
31              GET-OPTIMIZED-STD-SLOT-VALUE-USING-CLASS-METHOD-FUNCTION              MAKE-N-N-ACCESSOR-DFUN MAKE-CHECKING-DFUN LOAD-DEFGENERIC
32              ITERATE::WALK-GATHERING-BODY CACHE-MISS-VALUES              TYPES-FROM-ARGUMENTS MAKE-DEFAULT-INITARGS-FORM-LIST
33              MAKE-OPTIMIZED-STD-READER-METHOD-FUNCTION              MAKE-FINAL-ACCESSOR-DFUN MAKE-ACCESSOR-TABLE
34              OPTIMIZE-SLOT-VALUE-BY-CLASS-P ACCESSOR-VALUES1              GET-SIMPLE-INITIALIZATION-FUNCTION
35              EMIT-READER/WRITER EMIT-ONE-OR-N-INDEX-READER/WRITER              GET-COMPLEX-INITIALIZATION-FUNCTIONS
36              GENERATING-LISP EMIT-READER/WRITER-FUNCTION              COMPUTE-SECONDARY-DISPATCH-FUNCTION SLOT-VALUE-OR-DEFAULT
37              EMIT-ONE-OR-N-INDEX-READER/WRITER-FUNCTION              MAKE-EFFECTIVE-METHOD-FUNCTION NESTED-WALK-FORM))
             WALKER::WALK-LET-IF SET-SLOT-VALUE CONVERT-METHODS  
             |(FAST-METHOD METHOD-LAMBDA-LIST (TRACED-METHOD))|  
             SLOT-VALUE-USING-CLASS-DFUN SLOT-BOUNDP-USING-CLASS-DFUN  
             |(FAST-METHOD METHOD-SPECIALIZERS (TRACED-METHOD))|  
             CHECK-METHOD-ARG-INFO  
             |(FAST-METHOD METHOD-QUALIFIERS (TRACED-METHOD))|  
             LOAD-LONG-DEFCOMBIN MAKE-FINAL-N-N-ACCESSOR-DFUN  
             |(FAST-METHOD ACCESSOR-METHOD-SLOT-NAME (TRACED-METHOD))|  
             MAKE-FINAL-CACHING-DFUN MAKE-FINAL-CONSTANT-VALUE-DFUN  
             GET-CLASS-SLOT-VALUE-1 ACCESSOR-VALUES-INTERNAL  
             MAKE-OPTIMIZED-STD-WRITER-METHOD-FUNCTION  
             MAKE-OPTIMIZED-STD-BOUNDP-METHOD-FUNCTION  
             ITERATE::EXPAND-INTO-LET WALKER::WALK-FORM-INTERNAL  
             ITERATE::RENAME-VARIABLES CONSTANT-VALUE-MISS CACHING-MISS  
             |(FAST-METHOD COMPUTE-DISCRIMINATING-FUNCTION (STANDARD-GENERIC-FUNCTION))|  
             CHECKING-MISS GET-OPTIMIZED-STD-ACCESSOR-METHOD-FUNCTION  
             |(FAST-METHOD FUNCTION-KEYWORDS (STANDARD-METHOD))|  
             |(FAST-METHOD METHOD-PRETTY-ARGLIST (STANDARD-METHOD))|  
             |(FAST-METHOD CLASS-PROTOTYPE (STD-CLASS))|  
             |(FAST-METHOD CLASS-PROTOTYPE (STRUCTURE-CLASS))|  
             |(FAST-METHOD MAKE-INSTANCES-OBSOLETE (SYMBOL))|  
             |(FAST-METHOD METHOD-FUNCTION (STANDARD-METHOD))|  
             |(FAST-METHOD COMPUTE-DISCRIMINATING-FUNCTION-ARGLIST-INFO (STANDARD-GENERIC-FUNCTION))|))  
38  (PROCLAIM  (PROCLAIM
39      '(FTYPE (FUNCTION (T T T T T) *)      '(FTYPE (FUNCTION (T T T T *) *)
40              |(FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION LONG-METHOD-COMBINATION T))|              MAKE-EFFECTIVE-METHOD-FUNCTION-SIMPLE1
41              |(FAST-METHOD UPDATE-INSTANCE-FOR-DIFFERENT-CLASS (STANDARD-OBJECT STANDARD-OBJECT))|              ITERATE::RENAME-LET-BINDINGS))
42              |(FAST-METHOD SHARED-INITIALIZE (SLOT-OBJECT T))|  (PROCLAIM
43              COMPUTE-DISCRIMINATING-FUNCTION-ARGLIST-INFO-INTERNAL      '(FTYPE (FUNCTION (T T T *) *) MAKE-ONE-INDEX-ACCESSOR-DFUN
44              ADD-METHOD-DECLARATIONS WALK-METHOD-LAMBDA              WALKER::WALK-DECLARATIONS GET-SECONDARY-DISPATCH-FUNCTION))
45              MAKE-TWO-CLASS-ACCESSOR-DFUN  (PROCLAIM '(FTYPE (FUNCTION (T T T T T T *) *) REAL-MAKE-A-METHOD))
46              |(FAST-METHOD (SETF SLOT-ACCESSOR-FUNCTION) (T EFFECTIVE-SLOT-DEFINITION T))|  (PROCLAIM
47              |(FAST-METHOD SHARED-INITIALIZE :AFTER (CLASS-EQ-SPECIALIZER T))|      '(FTYPE (FUNCTION (T T T T T T) *) MEMF-CODE-CONVERTER
48              |(FAST-METHOD SHARED-INITIALIZE :AFTER (EQL-SPECIALIZER T))|              CACHE-MISS-VALUES-INTERNAL
49              |(FAST-METHOD SHARED-INITIALIZE :BEFORE (CLASS T))|              GENERATE-DISCRIMINATION-NET-INTERNAL
50              |(FAST-METHOD (SETF DOCUMENTATION) (T STANDARD-SLOT-DEFINITION))|              MAKE-LONG-METHOD-COMBINATION-FUNCTION
51              |(FAST-METHOD ADD-READER-METHOD (SLOT-CLASS T T))|              DO-SHORT-METHOD-COMBINATION
52              |(FAST-METHOD ADD-WRITER-METHOD (SLOT-CLASS T T))|              |(FAST-METHOD (SETF SLOT-VALUE-USING-CLASS) (T STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))|))
             |(FAST-METHOD ADD-BOUNDP-METHOD (SLOT-CLASS T T))|  
             |(FAST-METHOD (SETF CLASS-SLOT-VALUE) (T STD-CLASS T))|  
             |(FAST-METHOD SLOT-VALUE-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))|  
             |(FAST-METHOD SLOT-VALUE-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))|  
             |(FAST-METHOD SHARED-INITIALIZE :AFTER (STANDARD-SLOT-DEFINITION T))|  
             |(FAST-METHOD SHARED-INITIALIZE :BEFORE (STANDARD-METHOD T))|  
             |(FAST-METHOD SHARED-INITIALIZE :AFTER (STANDARD-ACCESSOR-METHOD T))|  
             |(FAST-METHOD SHARED-INITIALIZE :BEFORE (STANDARD-GENERIC-FUNCTION T))|))  
53  (PROCLAIM  (PROCLAIM
54      '(FTYPE (FUNCTION (T T T T) *)      '(FTYPE (FUNCTION (T T T T) *)
55              |(FAST-METHOD ALLOCATE-INSTANCE (STRUCTURE-CLASS))|              |(FAST-METHOD ALLOCATE-INSTANCE (STRUCTURE-CLASS))|
# Line 101  Line 70 
70              INITIALIZE-INSTANCE-SIMPLE-FUNCTION              INITIALIZE-INSTANCE-SIMPLE-FUNCTION
71              MAKE-SHARED-INITIALIZE-FORM-LIST              MAKE-SHARED-INITIALIZE-FORM-LIST
72              MAKE-ONE-CLASS-ACCESSOR-DFUN              MAKE-ONE-CLASS-ACCESSOR-DFUN
73              MAKE-FINAL-ONE-INDEX-ACCESSOR-DFUN MAKE-FINAL-CHECKING-DFUN              MAKE-FINAL-ONE-INDEX-ACCESSOR-DFUN SET-CLASS-SLOT-VALUE-1
74              ACCESSOR-VALUES SET-CLASS-SLOT-VALUE-1              MAKE-FINAL-CHECKING-DFUN ACCESSOR-VALUES
75              GENERATE-DISCRIMINATION-NET REAL-MAKE-METHOD-LAMBDA              GENERATE-DISCRIMINATION-NET REAL-MAKE-METHOD-LAMBDA
76              ORDER-SPECIALIZERS ACCESSOR-MISS              ORDER-SPECIALIZERS ACCESSOR-MISS
77              |(FAST-METHOD REINITIALIZE-INSTANCE :AFTER (SLOT-CLASS))|              |(FAST-METHOD REINITIALIZE-INSTANCE :AFTER (SLOT-CLASS))|
# Line 114  Line 83 
83              |(FAST-METHOD LEGAL-QUALIFIERS-P (STANDARD-METHOD T))|              |(FAST-METHOD LEGAL-QUALIFIERS-P (STANDARD-METHOD T))|
84              |(FAST-METHOD LEGAL-SPECIALIZERS-P (STANDARD-METHOD T))|))              |(FAST-METHOD LEGAL-SPECIALIZERS-P (STANDARD-METHOD T))|))
85  (PROCLAIM  (PROCLAIM
     '(FTYPE (FUNCTION (T T T T T T) *) MEMF-CODE-CONVERTER  
             CACHE-MISS-VALUES-INTERNAL  
             GENERATE-DISCRIMINATION-NET-INTERNAL  
             MAKE-LONG-METHOD-COMBINATION-FUNCTION  
             DO-SHORT-METHOD-COMBINATION  
             |(FAST-METHOD (SETF SLOT-VALUE-USING-CLASS) (T STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))|))  
 (PROCLAIM '(FTYPE (FUNCTION (T T T T T T *) *) REAL-MAKE-A-METHOD))  
 (PROCLAIM  
     '(FTYPE (FUNCTION (T T T *) *) MAKE-ONE-INDEX-ACCESSOR-DFUN  
             WALKER::WALK-DECLARATIONS GET-SECONDARY-DISPATCH-FUNCTION))  
 (PROCLAIM  
     '(FTYPE (FUNCTION (T T T T *) *)  
             MAKE-EFFECTIVE-METHOD-FUNCTION-SIMPLE1  
             ITERATE::RENAME-LET-BINDINGS))  
 (PROCLAIM  
     '(FTYPE (FUNCTION (T T *) *) NESTED-WALK-FORM SLOT-VALUE-OR-DEFAULT  
             MAKE-EFFECTIVE-METHOD-FUNCTION  
             GET-EFFECTIVE-METHOD-FUNCTION MAKE-N-N-ACCESSOR-DFUN  
             MAKE-CHECKING-DFUN LOAD-DEFGENERIC TYPES-FROM-ARGUMENTS  
             MAKE-DEFAULT-INITARGS-FORM-LIST MAKE-FINAL-ACCESSOR-DFUN  
             MAKE-ACCESSOR-TABLE GET-SIMPLE-INITIALIZATION-FUNCTION  
             GET-COMPLEX-INITIALIZATION-FUNCTIONS  
             COMPUTE-SECONDARY-DISPATCH-FUNCTION))  
 (PROCLAIM  
86      '(FTYPE (FUNCTION (T T T T T T T) *)      '(FTYPE (FUNCTION (T T T T T T T) *)
87              |(FAST-METHOD UPDATE-INSTANCE-FOR-REDEFINED-CLASS (STANDARD-OBJECT T T T))|              |(FAST-METHOD UPDATE-INSTANCE-FOR-REDEFINED-CLASS (STANDARD-OBJECT T T T))|
88              ITERATE::ITERATE-TRANSFORM-BODY))              ITERATE::ITERATE-TRANSFORM-BODY))
89  (PROCLAIM  (PROCLAIM
90        '(FTYPE (FUNCTION (T T T T T) *)
91                |(FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION LONG-METHOD-COMBINATION T))|
92                |(FAST-METHOD UPDATE-INSTANCE-FOR-DIFFERENT-CLASS (STANDARD-OBJECT STANDARD-OBJECT))|
93                |(FAST-METHOD SHARED-INITIALIZE (SLOT-OBJECT T))|
94                COMPUTE-DISCRIMINATING-FUNCTION-ARGLIST-INFO-INTERNAL
95                ADD-METHOD-DECLARATIONS WALK-METHOD-LAMBDA
96                MAKE-TWO-CLASS-ACCESSOR-DFUN
97                |(FAST-METHOD (SETF SLOT-ACCESSOR-FUNCTION) (T EFFECTIVE-SLOT-DEFINITION T))|
98                |(FAST-METHOD SHARED-INITIALIZE :AFTER (CLASS-EQ-SPECIALIZER T))|
99                |(FAST-METHOD SHARED-INITIALIZE :AFTER (EQL-SPECIALIZER T))|
100                |(FAST-METHOD SHARED-INITIALIZE :BEFORE (CLASS T))|
101                |(FAST-METHOD (SETF DOCUMENTATION) (T STANDARD-SLOT-DEFINITION))|
102                |(FAST-METHOD ADD-READER-METHOD (SLOT-CLASS T T))|
103                |(FAST-METHOD ADD-WRITER-METHOD (SLOT-CLASS T T))|
104                |(FAST-METHOD ADD-BOUNDP-METHOD (SLOT-CLASS T T))|
105                |(FAST-METHOD (SETF CLASS-SLOT-VALUE) (T STD-CLASS T))|
106                |(FAST-METHOD SLOT-VALUE-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))|
107                |(FAST-METHOD SLOT-VALUE-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))|
108                |(FAST-METHOD SHARED-INITIALIZE :AFTER (STANDARD-SLOT-DEFINITION T))|
109                |(FAST-METHOD SHARED-INITIALIZE :BEFORE (STANDARD-METHOD T))|
110                |(FAST-METHOD SHARED-INITIALIZE :AFTER (STANDARD-ACCESSOR-METHOD T))|
111                |(FAST-METHOD SHARED-INITIALIZE :BEFORE (STANDARD-GENERIC-FUNCTION T))|))
112    (PROCLAIM
113        '(FTYPE (FUNCTION (T T T) *) OPTIMIZE-SLOT-VALUE-BY-CLASS-P
114                ACCESSOR-VALUES1 EMIT-READER/WRITER
115                EMIT-ONE-OR-N-INDEX-READER/WRITER GENERATING-LISP
116                EMIT-READER/WRITER-FUNCTION
117                EMIT-ONE-OR-N-INDEX-READER/WRITER-FUNCTION
118                WALKER::WALK-LET-IF SET-SLOT-VALUE CONVERT-METHODS
119                |(FAST-METHOD METHOD-LAMBDA-LIST (TRACED-METHOD))|
120                SLOT-VALUE-USING-CLASS-DFUN SLOT-BOUNDP-USING-CLASS-DFUN
121                |(FAST-METHOD METHOD-SPECIALIZERS (TRACED-METHOD))|
122                CHECK-METHOD-ARG-INFO
123                |(FAST-METHOD METHOD-QUALIFIERS (TRACED-METHOD))|
124                LOAD-LONG-DEFCOMBIN MAKE-FINAL-N-N-ACCESSOR-DFUN
125                |(FAST-METHOD ACCESSOR-METHOD-SLOT-NAME (TRACED-METHOD))|
126                MAKE-FINAL-CACHING-DFUN MAKE-FINAL-CONSTANT-VALUE-DFUN
127                GET-CLASS-SLOT-VALUE-1 ACCESSOR-VALUES-INTERNAL
128                MAKE-OPTIMIZED-STD-WRITER-METHOD-FUNCTION
129                MAKE-OPTIMIZED-STD-BOUNDP-METHOD-FUNCTION
130                ITERATE::EXPAND-INTO-LET WALKER::WALK-FORM-INTERNAL
131                ITERATE::RENAME-VARIABLES CONSTANT-VALUE-MISS CACHING-MISS
132                |(FAST-METHOD COMPUTE-DISCRIMINATING-FUNCTION (STANDARD-GENERIC-FUNCTION))|
133                CHECKING-MISS GET-OPTIMIZED-STD-ACCESSOR-METHOD-FUNCTION
134                |(FAST-METHOD FUNCTION-KEYWORDS (STANDARD-METHOD))|
135                |(FAST-METHOD METHOD-PRETTY-ARGLIST (STANDARD-METHOD))|
136                |(FAST-METHOD CLASS-PROTOTYPE (STD-CLASS))|
137                |(FAST-METHOD CLASS-PROTOTYPE (STRUCTURE-CLASS))|
138                |(FAST-METHOD MAKE-INSTANCES-OBSOLETE (SYMBOL))|
139                |(FAST-METHOD METHOD-FUNCTION (STANDARD-METHOD))|
140                |(FAST-METHOD COMPUTE-DISCRIMINATING-FUNCTION-ARGLIST-INFO (STANDARD-GENERIC-FUNCTION))|
141                GET-OPTIMIZED-STD-SLOT-VALUE-USING-CLASS-METHOD-FUNCTION
142                ITERATE::WALK-GATHERING-BODY CACHE-MISS-VALUES
143                MAKE-OPTIMIZED-STD-READER-METHOD-FUNCTION))
144    (PROCLAIM
145      '(FTYPE (FUNCTION (T) NON-NEGATIVE-FIXNUM) CACHE-NLINES      '(FTYPE (FUNCTION (T) NON-NEGATIVE-FIXNUM) CACHE-NLINES
146              CACHE-MAX-LOCATION CACHE-SIZE CACHE-MASK))              CACHE-MAX-LOCATION CACHE-SIZE CACHE-MASK))
147  (PROCLAIM '(FTYPE (FUNCTION (T STREAM T) T) PRINT-DFUN-INFO))  (PROCLAIM '(FTYPE (FUNCTION (T STREAM T) T) PRINT-DFUN-INFO))
148  (PROCLAIM  (PROCLAIM
149        '(FTYPE (FUNCTION (T T T *) T) REAL-GET-METHOD CHECK-INITARGS-1
150                GET-METHOD CHECK-INITARGS-2-PLIST CHECK-INITARGS-2-LIST
151                WALKER::WALK-ARGLIST MAKE-EMF-CALL CAN-OPTIMIZE-ACCESS1
152                EMIT-FETCH-WRAPPER FILL-CACHE))
153    (PROCLAIM
154        '(FTYPE (FUNCTION (T T T T T *) T) EMIT-DLAP
155                GET-SECONDARY-DISPATCH-FUNCTION1))
156    (PROCLAIM
157        '(FTYPE (FUNCTION (T T T FIXNUM) T) GET-CACHE
158                FILL-CACHE-FROM-CACHE-P))
159    (PROCLAIM
160        '(FTYPE (FUNCTION (T T T T T T T) T)
161                |(FAST-METHOD SLOT-MISSING (T T T T))| EXPAND-DEFMETHOD
162                LOAD-DEFMETHOD-INTERNAL))
163    (PROCLAIM
164        '(FTYPE (FUNCTION (T T T T T T) T) REAL-LOAD-DEFCLASS
165                WALKER::WALK-TEMPLATE-HANDLE-REPEAT-1
166                BOOTSTRAP-MAKE-SLOT-DEFINITION EMIT-SLOT-ACCESS
167                OPTIMIZE-GF-CALL SET-ARG-INFO1 LOAD-DEFCLASS
168                MAKE-EARLY-CLASS-DEFINITION
169                |(FAST-METHOD (SETF SLOT-VALUE-USING-CLASS) (T STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))|))
170    (PROCLAIM
171        '(FTYPE (FUNCTION (T T *) T) ENSURE-GENERIC-FUNCTION-USING-CLASS
172                MAKE-EFFECTIVE-METHOD-FUNCTION-SIMPLE MAKE-EMF-FROM-METHOD
173                EXPAND-EFFECTIVE-METHOD-FUNCTION
174                NAMED-OBJECT-PRINT-FUNCTION FIND-CLASS-FROM-CELL
175                FIND-CLASS-PREDICATE-FROM-CELL INITIALIZE-INFO
176                GET-EFFECTIVE-METHOD-FUNCTION1 GET-DECLARATION
177                GET-METHOD-FUNCTION-PV-CELL EMIT-MISS METHOD-FUNCTION-GET
178                PROBE-CACHE MAP-CACHE PRECOMPUTE-EFFECTIVE-METHODS
179                RECORD-DEFINITION WALKER::CONVERT-MACRO-TO-LAMBDA CPL-ERROR
180                REAL-ADD-METHOD
181                REAL-ENSURE-GF-USING-CLASS--GENERIC-FUNCTION
182                REAL-ENSURE-GF-USING-CLASS--NULL
183                COMPUTE-SECONDARY-DISPATCH-FUNCTION1))
184    (PROCLAIM
185        '(FTYPE (FUNCTION (T T T T T) T)
186                |(FAST-METHOD SLOT-UNBOUND (T T T))|
187                |(FAST-METHOD FIND-METHOD-COMBINATION (GENERIC-FUNCTION (EQL STANDARD) T))|
188                |(FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION SHORT-METHOD-COMBINATION T))|
189                LOAD-FUNCTION-GENERATOR EXPAND-EMF-CALL-METHOD MAKE-FGEN
190                BOOTSTRAP-MAKE-SLOT-DEFINITIONS
191                BOOTSTRAP-ACCESSOR-DEFINITIONS1
192                MAKE-FINAL-ORDINARY-DFUN-INTERNAL
193                WALKER::WALK-TEMPLATE-HANDLE-REPEAT COMPUTE-PV-SLOT
194                WALKER::WALK-BINDINGS-1 OPTIMIZE-INSTANCE-ACCESS
195                OPTIMIZE-ACCESSOR-CALL MAKE-METHOD-INITARGS-FORM-INTERNAL1
196                UPDATE-SLOTS-IN-PV MAKE-PARAMETER-REFERENCES MAKE-EMF-CACHE
197                GET-MAKE-INSTANCE-FUNCTION-INTERNAL
198                |(FAST-METHOD (SETF SLOT-ACCESSOR-STD-P) (T EFFECTIVE-SLOT-DEFINITION T))|
199                MAKE-INSTANCE-FUNCTION-COMPLEX
200                |(FAST-METHOD ENSURE-CLASS-USING-CLASS (T NULL))|
201                MAKE-INSTANCE-FUNCTION-SIMPLE
202                |(FAST-METHOD ENSURE-CLASS-USING-CLASS (T PCL-CLASS))|
203                OPTIMIZE-GENERIC-FUNCTION-CALL
204                REAL-MAKE-METHOD-INITARGS-FORM
205                |(FAST-METHOD COMPUTE-SLOT-ACCESSOR-INFO (EFFECTIVE-SLOT-DEFINITION T T))|
206                |(FAST-METHOD SHARED-INITIALIZE :AFTER (STD-CLASS T))|
207                |(FAST-METHOD SHARED-INITIALIZE :AFTER (DOCUMENTATION-MIXIN T))|
208                |(FAST-METHOD (SETF DOCUMENTATION) (T T))|
209                |(FAST-METHOD SHARED-INITIALIZE :AFTER (STRUCTURE-CLASS T))|
210                |(FAST-METHOD (SETF DOCUMENTATION) (T DOCUMENTATION-MIXIN))|
211                |(FAST-METHOD READER-METHOD-CLASS (SLOT-CLASS T))|
212                |(FAST-METHOD WRITER-METHOD-CLASS (SLOT-CLASS T))|
213                |(FAST-METHOD SHARED-INITIALIZE :BEFORE (BUILT-IN-CLASS T))|
214                |(FAST-METHOD SLOT-BOUNDP-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))|
215                |(FAST-METHOD SLOT-MAKUNBOUND-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))|
216                |(FAST-METHOD SHARED-INITIALIZE :AFTER (STRUCTURE-SLOT-DEFINITION T))|
217                |(FAST-METHOD SLOT-BOUNDP-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))|
218                |(FAST-METHOD SLOT-MAKUNBOUND-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))|
219                |(FAST-METHOD SHARED-INITIALIZE :BEFORE (STANDARD-ACCESSOR-METHOD T))|
220                |(FAST-METHOD SHARED-INITIALIZE :AFTER (STANDARD-METHOD T))|
221                |(FAST-METHOD REMOVE-NAMED-METHOD (T T))|))
222    (PROCLAIM
223        '(FTYPE (FUNCTION (T T T) T) DECLARE-STRUCTURE OPTIMIZE-SLOT-BOUNDP
224                PRINT-CACHE FIRST-FORM-TO-LISP
225                ITERATE::OPTIMIZE-ITERATE-FORM
226                WRAP-METHOD-GROUP-SPECIFIER-BINDINGS MAKE-TOP-LEVEL-FORM
227                INVALIDATE-WRAPPER STANDARD-COMPUTE-EFFECTIVE-METHOD
228                MAKE-OPTIMIZED-STD-SLOT-VALUE-USING-CLASS-METHOD-FUNCTION
229                MAKE-OPTIMIZED-STD-SETF-SLOT-VALUE-USING-CLASS-METHOD-FUNCTION
230                MAKE-OPTIMIZED-STD-SLOT-BOUNDP-USING-CLASS-METHOD-FUNCTION
231                WALKER::RECONS ITERATE::OPTIMIZE-GATHERING-FORM
232                WALKER::WALK-MULTIPLE-VALUE-SETQ
233                |(FAST-METHOD CLASS-CONSTRUCTORS (SLOT-CLASS))|
234                |(FAST-METHOD CLASS-SLOT-CELLS (STD-CLASS))|
235                |(FAST-METHOD SPECIALIZER-CLASS (CLASS))|
236                |(FAST-METHOD SPECIALIZER-CLASS (EQL-SPECIALIZER))|
237                |(FAST-METHOD SPECIALIZER-DIRECT-METHODS (CLASS))|
238                |(FAST-METHOD SPECIALIZER-DIRECT-GENERIC-FUNCTIONS (CLASS))|
239                |(FAST-METHOD GENERIC-FUNCTION-PRETTY-ARGLIST (STANDARD-GENERIC-FUNCTION))|
240                |(FAST-METHOD SPECIALIZER-METHOD-TABLE (EQL-SPECIALIZER))|
241                |(FAST-METHOD SPECIALIZER-METHOD-TABLE (CLASS-EQ-SPECIALIZER))|
242                |(FAST-METHOD SPECIALIZER-DIRECT-METHODS (SPECIALIZER-WITH-OBJECT))|
243                |(FAST-METHOD SPECIALIZER-DIRECT-GENERIC-FUNCTIONS (SPECIALIZER-WITH-OBJECT))|
244                |(FAST-METHOD CLASS-PREDICATE-NAME (T))|
245                |(FAST-METHOD INITIALIZE-INTERNAL-SLOT-FUNCTIONS (EFFECTIVE-SLOT-DEFINITION))|
246                |(FAST-METHOD SLOT-DEFINITION-ALLOCATION (STRUCTURE-SLOT-DEFINITION))|
247                |(FAST-METHOD FINALIZE-INHERITANCE (STRUCTURE-CLASS))|
248                |(FAST-METHOD FINALIZE-INHERITANCE (STD-CLASS))|
249                |(FAST-METHOD COMPUTE-DEFAULT-INITARGS (SLOT-CLASS))|
250                |(FAST-METHOD CLASS-FINALIZED-P (PCL-CLASS))|
251                |(FAST-METHOD COMPUTE-SLOTS (STD-CLASS))|
252                |(FAST-METHOD COMPUTE-SLOTS :AROUND (STD-CLASS))|
253                |(FAST-METHOD COMPUTE-SLOTS (STRUCTURE-CLASS))|
254                |(FAST-METHOD COMPUTE-SLOTS :AROUND (STRUCTURE-CLASS))|
255                |(FAST-METHOD CLASS-DIRECT-DEFAULT-INITARGS (SLOT-CLASS))|
256                |(FAST-METHOD CLASS-DEFAULT-INITARGS (SLOT-CLASS))|
257                ITERATE::SIMPLE-EXPAND-GATHERING-FORM
258                ITERATE::RENAME-AND-CAPTURE-VARIABLES
259                ITERATE::VARIABLE-SAME-P GET-FUNCTION-GENERATOR
260                GET-NEW-FUNCTION-GENERATOR TRACE-METHOD-INTERNAL
261                ONE-INDEX-DFUN-INFO ONE-CLASS-DFUN-INFO MAP-ALL-ORDERS
262                NOTE-PV-TABLE-REFERENCE WALKER::RELIST-INTERNAL
263                MAKE-DFUN-CALL WALKER::WALK-TAGBODY-1 WALKER::WALK-LAMBDA
264                OPTIMIZE-GF-CALL-INTERNAL WALKER::WALK-COMPILER-LET
265                |(FAST-METHOD MAKE-INSTANCES-OBSOLETE (STD-CLASS))|
266                SKIP-FAST-SLOT-ACCESS-P WALKER::WALK-UNEXPECTED-DECLARE
267                WALKER::WALK-FLET WALKER::WALK-IF WALKER::WALK-LABELS
268                WALKER::WALK-LET WALKER::WALK-LET* WALKER::WALK-LOCALLY
269                |(FAST-METHOD CLASS-DIRECT-SLOTS (BUILT-IN-CLASS))|
270                WALKER::WALK-MACROLET
271                |(FAST-METHOD CLASS-SLOTS (BUILT-IN-CLASS))|
272                |(FAST-METHOD CLASS-DIRECT-DEFAULT-INITARGS (BUILT-IN-CLASS))|
273                FIX-SLOT-ACCESSORS
274                |(FAST-METHOD WRAPPER-FETCHER (STANDARD-CLASS))|
275                WALKER::WALK-MULTIPLE-VALUE-BIND
276                |(FAST-METHOD CLASS-DEFAULT-INITARGS (BUILT-IN-CLASS))|
277                WALKER::WALK-SETQ
278                |(FAST-METHOD SLOTS-FETCHER (STANDARD-CLASS))|
279                WALKER::WALK-SYMBOL-MACROLET
280                |(FAST-METHOD RAW-INSTANCE-ALLOCATOR (STANDARD-CLASS))|
281                EMIT-SLOT-READ-FORM WALKER::WALK-TAGBODY EMIT-BOUNDP-CHECK
282                WALKER::WALK-DO WALKER::WALK-DO* WALKER::WALK-PROG
283                WALKER::WALK-NAMED-LAMBDA WALKER::WALK-PROG*
284                WALKER::WITH-AUGMENTED-ENVIRONMENT-INTERNAL
285                MAKE-METHOD-INITARGS-FORM-INTERNAL EXPAND-DEFGENERIC
286                EMIT-GREATER-THAN-1-DLAP EMIT-1-T-DLAP ENTRY-IN-CACHE-P
287                CONVERT-TABLE MAKE-METHOD-SPEC TRACE-EMF-CALL-INTERNAL
288                FLUSH-CACHE-TRAP COMPUTE-EFFECTIVE-METHOD
289                SET-FUNCTION-NAME-1 OBSOLETE-INSTANCE-TRAP
290                COMPUTE-PRECEDENCE PRINT-STD-INSTANCE
291                |SETF PCL METHOD-FUNCTION-GET| |SETF PCL PLIST-VALUE|
292                |(FAST-METHOD ACCESSOR-METHOD-CLASS (STANDARD-ACCESSOR-METHOD))|
293                |(FAST-METHOD ACCESSOR-METHOD-CLASS (STANDARD-WRITER-METHOD))|
294                INITIALIZE-INTERNAL-SLOT-GFS*
295                |(FAST-METHOD METHOD-QUALIFIERS (STANDARD-METHOD))|
296                SKIP-OPTIMIZE-SLOT-VALUE-BY-CLASS-P
297                |(FAST-METHOD GENERIC-FUNCTION-LAMBDA-LIST (GENERIC-FUNCTION))|
298                |(FAST-METHOD GF-FAST-METHOD-FUNCTION-P (STANDARD-GENERIC-FUNCTION))|
299                SORT-APPLICABLE-METHODS SORT-METHODS VARIABLE-DECLARATION
300                |(FAST-METHOD COMPUTE-CLASS-PRECEDENCE-LIST (SLOT-CLASS))|
301                CAN-OPTIMIZE-ACCESS
302                |(FAST-METHOD WRAPPER-FETCHER (FUNCALLABLE-STANDARD-CLASS))|
303                OPTIMIZE-SLOT-VALUE
304                |(FAST-METHOD SLOTS-FETCHER (FUNCALLABLE-STANDARD-CLASS))|
305                OPTIMIZE-SET-SLOT-VALUE
306                |(FAST-METHOD RAW-INSTANCE-ALLOCATOR (FUNCALLABLE-STANDARD-CLASS))|))
307    (PROCLAIM
308      '(FTYPE (FUNCTION (T T T T) T)      '(FTYPE (FUNCTION (T T T T) T)
309              |(FAST-METHOD ALLOCATE-INSTANCE (STANDARD-CLASS))|              |(FAST-METHOD ALLOCATE-INSTANCE (STANDARD-CLASS))|
310              |(FAST-METHOD VALIDATE-SUPERCLASS (FUNCALLABLE-STANDARD-CLASS STANDARD-CLASS))|              |(FAST-METHOD VALIDATE-SUPERCLASS (FUNCALLABLE-STANDARD-CLASS STANDARD-CLASS))|
311              |(FAST-METHOD ALLOCATE-INSTANCE (FUNCALLABLE-STANDARD-CLASS))|              |(FAST-METHOD ALLOCATE-INSTANCE (FUNCALLABLE-STANDARD-CLASS))|
312              |(FAST-METHOD MAKE-READER-METHOD-FUNCTION (FUNCALLABLE-STANDARD-CLASS T))|              |(FAST-METHOD MAKE-READER-METHOD-FUNCTION (FUNCALLABLE-STANDARD-CLASS T))|
313              |(FAST-METHOD MAKE-WRITER-METHOD-FUNCTION (FUNCALLABLE-STANDARD-CLASS T))|              |(FAST-METHOD MAKE-WRITER-METHOD-FUNCTION (FUNCALLABLE-STANDARD-CLASS T))|
314              |(FAST-METHOD MAKE-INSTANCE (CLASS))|              WALKER::WALK-LET/LET* WALKER::WALK-PROG/PROG*
315                WALKER::WALK-DO/DO* |(FAST-METHOD MAKE-INSTANCE (CLASS))|
316                WALKER::WALK-BINDINGS-2
317              |(FAST-METHOD REINITIALIZE-INSTANCE (SLOT-OBJECT))|              |(FAST-METHOD REINITIALIZE-INSTANCE (SLOT-OBJECT))|
318              MAKE-EFFECTIVE-METHOD-FUNCTION1              MAKE-EFFECTIVE-METHOD-FUNCTION1
319              MAKE-EFFECTIVE-METHOD-FUNCTION-INTERNAL              MAKE-EFFECTIVE-METHOD-FUNCTION-INTERNAL
320              MAKE-EFFECTIVE-METHOD-FUNCTION-TYPE MEMF-TEST-CONVERTER              MAKE-EFFECTIVE-METHOD-FUNCTION-TYPE MEMF-TEST-CONVERTER
321              LOAD-PRECOMPILED-DFUN-CONSTRUCTOR TWO-CLASS-DFUN-INFO              LOAD-PRECOMPILED-DFUN-CONSTRUCTOR TWO-CLASS-DFUN-INFO
322              WALKER::WALK-LET/LET* WALKER::WALK-PROG/PROG*              OPTIMIZE-READER OPTIMIZE-WRITER MAYBE-EXPAND-ACCESSOR-FORM
323              WALKER::WALK-DO/DO* WALKER::WALK-BINDINGS-2 OPTIMIZE-READER              |(FAST-METHOD ADD-DIRECT-SUBCLASS (CLASS CLASS))|
             OPTIMIZE-WRITER  
324              |(FAST-METHOD SAME-SPECIALIZER-P (SPECIALIZER SPECIALIZER))|              |(FAST-METHOD SAME-SPECIALIZER-P (SPECIALIZER SPECIALIZER))|
325              EMIT-CHECKING-OR-CACHING-FUNCTION-PRELIMINARY              EMIT-CHECKING-OR-CACHING-FUNCTION-PRELIMINARY
326              |(FAST-METHOD SAME-SPECIALIZER-P (CLASS CLASS))|              |(FAST-METHOD SAME-SPECIALIZER-P (CLASS CLASS))|
             MAYBE-EXPAND-ACCESSOR-FORM  
             |(FAST-METHOD ADD-DIRECT-SUBCLASS (CLASS CLASS))|  
327              INITIALIZE-INSTANCE-SIMPLE              INITIALIZE-INSTANCE-SIMPLE
328              |(FAST-METHOD SAME-SPECIALIZER-P (CLASS-EQ-SPECIALIZER CLASS-EQ-SPECIALIZER))|              |(FAST-METHOD SAME-SPECIALIZER-P (CLASS-EQ-SPECIALIZER CLASS-EQ-SPECIALIZER))|
329              GET-WRAPPERS-FROM-CLASSES              GET-WRAPPERS-FROM-CLASSES
# Line 226  Line 384 
384              |(FAST-METHOD REINITIALIZE-INSTANCE :AFTER (STANDARD-GENERIC-FUNCTION))|              |(FAST-METHOD REINITIALIZE-INSTANCE :AFTER (STANDARD-GENERIC-FUNCTION))|
385              |(FAST-METHOD COMPUTE-APPLICABLE-METHODS (GENERIC-FUNCTION T))|))              |(FAST-METHOD COMPUTE-APPLICABLE-METHODS (GENERIC-FUNCTION T))|))
386  (PROCLAIM  (PROCLAIM
387      '(FTYPE (FUNCTION (T T T) T)      '(FTYPE (FUNCTION (T T T T T T T T T *) T)
388              |(FAST-METHOD COMPUTE-CLASS-PRECEDENCE-LIST (SLOT-CLASS))|              BOOTSTRAP-INITIALIZE-CLASS))
389              CAN-OPTIMIZE-ACCESS  (PROCLAIM '(FTYPE (FUNCTION (T T FIXNUM) T) COMPUTE-STD-CPL-PHASE-3))
             |(FAST-METHOD WRAPPER-FETCHER (FUNCALLABLE-STANDARD-CLASS))|  
             OPTIMIZE-SLOT-VALUE  
             |(FAST-METHOD SLOTS-FETCHER (FUNCALLABLE-STANDARD-CLASS))|  
             OPTIMIZE-SET-SLOT-VALUE  
             |(FAST-METHOD RAW-INSTANCE-ALLOCATOR (FUNCALLABLE-STANDARD-CLASS))|  
             DECLARE-STRUCTURE OPTIMIZE-SLOT-BOUNDP PRINT-CACHE  
             FIRST-FORM-TO-LISP ITERATE::OPTIMIZE-ITERATE-FORM  
             WRAP-METHOD-GROUP-SPECIFIER-BINDINGS MAKE-TOP-LEVEL-FORM  
             INVALIDATE-WRAPPER STANDARD-COMPUTE-EFFECTIVE-METHOD  
             MAKE-OPTIMIZED-STD-SLOT-VALUE-USING-CLASS-METHOD-FUNCTION  
             MAKE-OPTIMIZED-STD-SETF-SLOT-VALUE-USING-CLASS-METHOD-FUNCTION  
             MAKE-OPTIMIZED-STD-SLOT-BOUNDP-USING-CLASS-METHOD-FUNCTION  
             WALKER::RECONS ITERATE::OPTIMIZE-GATHERING-FORM  
             WALKER::WALK-MULTIPLE-VALUE-SETQ  
             |(FAST-METHOD CLASS-CONSTRUCTORS (SLOT-CLASS))|  
             |(FAST-METHOD CLASS-SLOT-CELLS (STD-CLASS))|  
             |(FAST-METHOD SPECIALIZER-CLASS (CLASS))|  
             |(FAST-METHOD SPECIALIZER-CLASS (EQL-SPECIALIZER))|  
             |(FAST-METHOD SPECIALIZER-DIRECT-METHODS (CLASS))|  
             |(FAST-METHOD SPECIALIZER-DIRECT-GENERIC-FUNCTIONS (CLASS))|  
             |(FAST-METHOD GENERIC-FUNCTION-PRETTY-ARGLIST (STANDARD-GENERIC-FUNCTION))|  
             |(FAST-METHOD SPECIALIZER-METHOD-TABLE (EQL-SPECIALIZER))|  
             |(FAST-METHOD SPECIALIZER-METHOD-TABLE (CLASS-EQ-SPECIALIZER))|  
             |(FAST-METHOD SPECIALIZER-DIRECT-METHODS (SPECIALIZER-WITH-OBJECT))|  
             |(FAST-METHOD SPECIALIZER-DIRECT-GENERIC-FUNCTIONS (SPECIALIZER-WITH-OBJECT))|  
             VARIABLE-DECLARATION  
             |(FAST-METHOD CLASS-PREDICATE-NAME (T))|  
             |(FAST-METHOD INITIALIZE-INTERNAL-SLOT-FUNCTIONS (EFFECTIVE-SLOT-DEFINITION))|  
             |(FAST-METHOD SLOT-DEFINITION-ALLOCATION (STRUCTURE-SLOT-DEFINITION))|  
             |(FAST-METHOD FINALIZE-INHERITANCE (STRUCTURE-CLASS))|  
             |(FAST-METHOD FINALIZE-INHERITANCE (STD-CLASS))|  
             |(FAST-METHOD COMPUTE-DEFAULT-INITARGS (SLOT-CLASS))|  
             |(FAST-METHOD CLASS-FINALIZED-P (PCL-CLASS))|  
             |(FAST-METHOD COMPUTE-SLOTS (STD-CLASS))|  
             |(FAST-METHOD COMPUTE-SLOTS :AROUND (STD-CLASS))|  
             |(FAST-METHOD COMPUTE-SLOTS (STRUCTURE-CLASS))|  
             |(FAST-METHOD COMPUTE-SLOTS :AROUND (STRUCTURE-CLASS))|  
             |(FAST-METHOD CLASS-DIRECT-DEFAULT-INITARGS (SLOT-CLASS))|  
             |(FAST-METHOD CLASS-DEFAULT-INITARGS (SLOT-CLASS))|  
             ITERATE::SIMPLE-EXPAND-GATHERING-FORM  
             ITERATE::RENAME-AND-CAPTURE-VARIABLES  
             ITERATE::VARIABLE-SAME-P GET-FUNCTION-GENERATOR  
             GET-NEW-FUNCTION-GENERATOR TRACE-METHOD-INTERNAL  
             ONE-INDEX-DFUN-INFO ONE-CLASS-DFUN-INFO MAP-ALL-ORDERS  
             NOTE-PV-TABLE-REFERENCE WALKER::RELIST-INTERNAL  
             MAKE-DFUN-CALL WALKER::WALK-TAGBODY-1 WALKER::WALK-LAMBDA  
             OPTIMIZE-GF-CALL-INTERNAL WALKER::WALK-COMPILER-LET  
             |(FAST-METHOD MAKE-INSTANCES-OBSOLETE (STD-CLASS))|  
             SKIP-FAST-SLOT-ACCESS-P WALKER::WALK-UNEXPECTED-DECLARE  
             WALKER::WALK-FLET WALKER::WALK-IF WALKER::WALK-LABELS  
             WALKER::WALK-LET WALKER::WALK-LET* WALKER::WALK-LOCALLY  
             |(FAST-METHOD CLASS-DIRECT-SLOTS (BUILT-IN-CLASS))|  
             WALKER::WALK-MACROLET  
             |(FAST-METHOD CLASS-SLOTS (BUILT-IN-CLASS))|  
             |(FAST-METHOD CLASS-DIRECT-DEFAULT-INITARGS (BUILT-IN-CLASS))|  
             FIX-SLOT-ACCESSORS  
             |(FAST-METHOD WRAPPER-FETCHER (STANDARD-CLASS))|  
             WALKER::WALK-MULTIPLE-VALUE-BIND  
             |(FAST-METHOD CLASS-DEFAULT-INITARGS (BUILT-IN-CLASS))|  
             WALKER::WALK-SETQ  
             |(FAST-METHOD SLOTS-FETCHER (STANDARD-CLASS))|  
             WALKER::WALK-SYMBOL-MACROLET  
             |(FAST-METHOD RAW-INSTANCE-ALLOCATOR (STANDARD-CLASS))|  
             EMIT-SLOT-READ-FORM WALKER::WALK-TAGBODY EMIT-BOUNDP-CHECK  
             WALKER::WALK-DO WALKER::WALK-DO* WALKER::WALK-PROG  
             WALKER::WALK-NAMED-LAMBDA WALKER::WALK-PROG*  
             EXPAND-DEFGENERIC EMIT-GREATER-THAN-1-DLAP EMIT-1-T-DLAP  
             MAKE-METHOD-INITARGS-FORM-INTERNAL ENTRY-IN-CACHE-P  
             CONVERT-TABLE MAKE-METHOD-SPEC TRACE-EMF-CALL-INTERNAL  
             FLUSH-CACHE-TRAP SET-FUNCTION-NAME-1 OBSOLETE-INSTANCE-TRAP  
             COMPUTE-PRECEDENCE PRINT-STD-INSTANCE  
             |SETF PCL METHOD-FUNCTION-GET| |SETF PCL PLIST-VALUE|  
             WALKER::WITH-AUGMENTED-ENVIRONMENT-INTERNAL  
             |(FAST-METHOD ACCESSOR-METHOD-CLASS (STANDARD-ACCESSOR-METHOD))|  
             |(FAST-METHOD ACCESSOR-METHOD-CLASS (STANDARD-WRITER-METHOD))|  
             INITIALIZE-INTERNAL-SLOT-GFS*  
             |(FAST-METHOD METHOD-QUALIFIERS (STANDARD-METHOD))|  
             SKIP-OPTIMIZE-SLOT-VALUE-BY-CLASS-P  
             |(FAST-METHOD GENERIC-FUNCTION-LAMBDA-LIST (GENERIC-FUNCTION))|  
             |(FAST-METHOD GF-FAST-METHOD-FUNCTION-P (STANDARD-GENERIC-FUNCTION))|  
             COMPUTE-EFFECTIVE-METHOD SORT-APPLICABLE-METHODS  
             SORT-METHODS))  
 (PROCLAIM  
     '(FTYPE (FUNCTION (T T T T T) T)  
             |(FAST-METHOD SLOT-UNBOUND (T T T))|  
             |(FAST-METHOD FIND-METHOD-COMBINATION (GENERIC-FUNCTION (EQL STANDARD) T))|  
             |(FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION SHORT-METHOD-COMBINATION T))|  
             LOAD-FUNCTION-GENERATOR EXPAND-EMF-CALL-METHOD MAKE-FGEN  
             BOOTSTRAP-MAKE-SLOT-DEFINITIONS  
             BOOTSTRAP-ACCESSOR-DEFINITIONS1  
             MAKE-FINAL-ORDINARY-DFUN-INTERNAL  
             WALKER::WALK-TEMPLATE-HANDLE-REPEAT COMPUTE-PV-SLOT  
             WALKER::WALK-BINDINGS-1 OPTIMIZE-INSTANCE-ACCESS  
             OPTIMIZE-ACCESSOR-CALL MAKE-METHOD-INITARGS-FORM-INTERNAL1  
             UPDATE-SLOTS-IN-PV MAKE-PARAMETER-REFERENCES MAKE-EMF-CACHE  
             GET-MAKE-INSTANCE-FUNCTION-INTERNAL  
             |(FAST-METHOD (SETF SLOT-ACCESSOR-STD-P) (T EFFECTIVE-SLOT-DEFINITION T))|  
             MAKE-INSTANCE-FUNCTION-COMPLEX  
             |(FAST-METHOD ENSURE-CLASS-USING-CLASS (T NULL))|  
             MAKE-INSTANCE-FUNCTION-SIMPLE  
             |(FAST-METHOD ENSURE-CLASS-USING-CLASS (T PCL-CLASS))|  
             OPTIMIZE-GENERIC-FUNCTION-CALL  
             REAL-MAKE-METHOD-INITARGS-FORM  
             |(FAST-METHOD COMPUTE-SLOT-ACCESSOR-INFO (EFFECTIVE-SLOT-DEFINITION T T))|  
             |(FAST-METHOD SHARED-INITIALIZE :AFTER (STD-CLASS T))|  
             |(FAST-METHOD SHARED-INITIALIZE :AFTER (DOCUMENTATION-MIXIN T))|  
             |(FAST-METHOD (SETF DOCUMENTATION) (T T))|  
             |(FAST-METHOD SHARED-INITIALIZE :AFTER (STRUCTURE-CLASS T))|  
             |(FAST-METHOD (SETF DOCUMENTATION) (T DOCUMENTATION-MIXIN))|  
             |(FAST-METHOD READER-METHOD-CLASS (SLOT-CLASS T))|  
             |(FAST-METHOD WRITER-METHOD-CLASS (SLOT-CLASS T))|  
             |(FAST-METHOD SHARED-INITIALIZE :BEFORE (BUILT-IN-CLASS T))|  
             |(FAST-METHOD SLOT-BOUNDP-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))|  
             |(FAST-METHOD SLOT-MAKUNBOUND-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))|  
             |(FAST-METHOD SHARED-INITIALIZE :AFTER (STRUCTURE-SLOT-DEFINITION T))|  
             |(FAST-METHOD SLOT-BOUNDP-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))|  
             |(FAST-METHOD SLOT-MAKUNBOUND-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))|  
             |(FAST-METHOD SHARED-INITIALIZE :BEFORE (STANDARD-ACCESSOR-METHOD T))|  
             |(FAST-METHOD SHARED-INITIALIZE :AFTER (STANDARD-METHOD T))|  
             |(FAST-METHOD REMOVE-NAMED-METHOD (T T))|))  
 (PROCLAIM  
     '(FTYPE (FUNCTION (T T *) T) MAKE-EFFECTIVE-METHOD-FUNCTION-SIMPLE  
             MAKE-EMF-FROM-METHOD EXPAND-EFFECTIVE-METHOD-FUNCTION  
             NAMED-OBJECT-PRINT-FUNCTION FIND-CLASS-FROM-CELL  
             FIND-CLASS-PREDICATE-FROM-CELL INITIALIZE-INFO  
             GET-EFFECTIVE-METHOD-FUNCTION1 GET-DECLARATION  
             GET-METHOD-FUNCTION-PV-CELL EMIT-MISS METHOD-FUNCTION-GET  
             PROBE-CACHE MAP-CACHE PRECOMPUTE-EFFECTIVE-METHODS  
             RECORD-DEFINITION WALKER::CONVERT-MACRO-TO-LAMBDA CPL-ERROR  
             REAL-ADD-METHOD  
             REAL-ENSURE-GF-USING-CLASS--GENERIC-FUNCTION  
             REAL-ENSURE-GF-USING-CLASS--NULL  
             COMPUTE-SECONDARY-DISPATCH-FUNCTION1  
             ENSURE-GENERIC-FUNCTION-USING-CLASS))  
 (PROCLAIM  
     '(FTYPE (FUNCTION (T T T T T T) T) REAL-LOAD-DEFCLASS  
             WALKER::WALK-TEMPLATE-HANDLE-REPEAT-1  
             BOOTSTRAP-MAKE-SLOT-DEFINITION EMIT-SLOT-ACCESS  
             OPTIMIZE-GF-CALL SET-ARG-INFO1 LOAD-DEFCLASS  
             MAKE-EARLY-CLASS-DEFINITION  
             |(FAST-METHOD (SETF SLOT-VALUE-USING-CLASS) (T STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))|))  
 (PROCLAIM  
     '(FTYPE (FUNCTION (T T T T T T T) T)  
             |(FAST-METHOD SLOT-MISSING (T T T T))| EXPAND-DEFMETHOD  
             LOAD-DEFMETHOD-INTERNAL))  
 (PROCLAIM  
     '(FTYPE (FUNCTION (T T T FIXNUM) T) GET-CACHE  
             FILL-CACHE-FROM-CACHE-P))  
390  (PROCLAIM  (PROCLAIM
391      '(FTYPE (FUNCTION (T T T T T *) T) EMIT-DLAP      '(FTYPE (FUNCTION (T T T T T T T T) T)
392              GET-SECONDARY-DISPATCH-FUNCTION1))              GET-SECONDARY-DISPATCH-FUNCTION2))
393  (PROCLAIM  (PROCLAIM
394      '(FTYPE (FUNCTION (T T T *) T) CHECK-INITARGS-2-PLIST      '(FTYPE (FUNCTION (T T T T *) T) FILL-DFUN-CACHE
395              CHECK-INITARGS-2-LIST WALKER::WALK-ARGLIST MAKE-EMF-CALL              EARLY-ADD-NAMED-METHOD REAL-ADD-NAMED-METHOD))
             CAN-OPTIMIZE-ACCESS1 EMIT-FETCH-WRAPPER FILL-CACHE  
             REAL-GET-METHOD CHECK-INITARGS-1 GET-METHOD))  
396  (PROCLAIM  (PROCLAIM
397      '(FTYPE (FUNCTION (T T T T T T *) T) LOAD-DEFMETHOD      '(FTYPE (FUNCTION (T T T T T T *) T) LOAD-DEFMETHOD
398              MAKE-DEFMETHOD-FORM MAKE-DEFMETHOD-FORM-INTERNAL              MAKE-DEFMETHOD-FORM MAKE-DEFMETHOD-FORM-INTERNAL
399              EARLY-MAKE-A-METHOD))              EARLY-MAKE-A-METHOD))
400  (PROCLAIM  (PROCLAIM
     '(FTYPE (FUNCTION (T T T T *) T) FILL-DFUN-CACHE  
             EARLY-ADD-NAMED-METHOD REAL-ADD-NAMED-METHOD))  
 (PROCLAIM  
     '(FTYPE (FUNCTION (T T T T T T T T) T)  
             GET-SECONDARY-DISPATCH-FUNCTION2))  
 (PROCLAIM '(FTYPE (FUNCTION (T T FIXNUM) T) COMPUTE-STD-CPL-PHASE-3))  
 (PROCLAIM  
     '(FTYPE (FUNCTION (T T T T T T T T T *) T)  
             BOOTSTRAP-INITIALIZE-CLASS))  
 (PROCLAIM  
401      '(FTYPE (FUNCTION NIL *) COUNT-ALL-DFUNS EMIT-N-N-READERS      '(FTYPE (FUNCTION NIL *) COUNT-ALL-DFUNS EMIT-N-N-READERS
402              EMIT-N-N-WRITERS))              EMIT-N-N-WRITERS))
403  (PROCLAIM  (PROCLAIM
# Line 407  Line 405 
405              UPDATE-MAKE-INSTANCE-FUNCTION-TABLE INVALID-METHOD-ERROR              UPDATE-MAKE-INSTANCE-FUNCTION-TABLE INVALID-METHOD-ERROR
406              METHOD-COMBINATION-ERROR))              METHOD-COMBINATION-ERROR))
407  (PROCLAIM  (PROCLAIM
408      '(FTYPE (FUNCTION NIL T) RENEW-SYS-FILES      '(FTYPE (FUNCTION NIL T) MAKE-CACHE IN-THE-COMPILER-P
409                STRUCTURE-FUNCTIONS-EXIST-P ALLOCATE-FUNCALLABLE-INSTANCE-2
410                %%ALLOCATE-INSTANCE--CLASS ALLOCATE-FUNCALLABLE-INSTANCE-1
411                DISPATCH-DFUN-INFO INITIAL-DISPATCH-DFUN-INFO
412                INITIAL-DFUN-INFO NO-METHODS-DFUN-INFO
413                SHOW-FREE-CACHE-VECTORS MAKE-CPD MAKE-ARG-INFO
414                SHOW-DFUN-CONSTRUCTORS RENEW-SYS-FILES
415              GET-EFFECTIVE-METHOD-GENSYM SHOW-EMF-CALL-TRACE              GET-EFFECTIVE-METHOD-GENSYM SHOW-EMF-CALL-TRACE
416              BOOTSTRAP-META-BRAID BOOTSTRAP-BUILT-IN-CLASSES              BOOTSTRAP-META-BRAID BOOTSTRAP-BUILT-IN-CLASSES
417              LIST-ALL-DFUNS DEFAULT-METHOD-ONLY-DFUN-INFO              LIST-ALL-DFUNS DEFAULT-METHOD-ONLY-DFUN-INFO
418              INITIALIZE-CHECKING-OR-CACHING-FUNCTION-LIST              INITIALIZE-CHECKING-OR-CACHING-FUNCTION-LIST
419              CACHES-TO-ALLOCATE UPDATE-DISPATCH-DFUNS MAKE-CACHE              CACHES-TO-ALLOCATE UPDATE-DISPATCH-DFUNS))
             IN-THE-COMPILER-P STRUCTURE-FUNCTIONS-EXIST-P  
             ALLOCATE-FUNCALLABLE-INSTANCE-2 %%ALLOCATE-INSTANCE--CLASS  
             ALLOCATE-FUNCALLABLE-INSTANCE-1 DISPATCH-DFUN-INFO  
             INITIAL-DISPATCH-DFUN-INFO INITIAL-DFUN-INFO  
             NO-METHODS-DFUN-INFO SHOW-FREE-CACHE-VECTORS MAKE-CPD  
             MAKE-ARG-INFO SHOW-DFUN-CONSTRUCTORS))  
 (PROCLAIM '(FTYPE (FUNCTION (FIXNUM T T) *) COMPUTE-CACHE-PARAMETERS))  
420  (PROCLAIM '(FTYPE (FUNCTION (FIXNUM T *) *) FIND-FREE-CACHE-LINE))  (PROCLAIM '(FTYPE (FUNCTION (FIXNUM T *) *) FIND-FREE-CACHE-LINE))
421    (PROCLAIM '(FTYPE (FUNCTION (FIXNUM T T) *) COMPUTE-CACHE-PARAMETERS))
422  (PROCLAIM  (PROCLAIM
423      '(FTYPE (FUNCTION (*) T) |__si::MAKE-DFUN-INFO|      '(FTYPE (FUNCTION (*) T) |__si::MAKE-DFUN-INFO|
424              |__si::MAKE-NO-METHODS| |__si::MAKE-INITIAL|              |__si::MAKE-NO-METHODS| |__si::MAKE-INITIAL|
# Line 441  Line 439 
439              MAKE-INITIALIZE-INFO |__si::MAKE-CACHE| MAKE-PROGN              MAKE-INITIALIZE-INFO |__si::MAKE-CACHE| MAKE-PROGN
440              WALKER::UNBOUND-LEXICAL-FUNCTION              WALKER::UNBOUND-LEXICAL-FUNCTION
441              |__si::MAKE-CLASS-PRECEDENCE-DESCRIPTION| MAKE-METHOD-CALL              |__si::MAKE-CLASS-PRECEDENCE-DESCRIPTION| MAKE-METHOD-CALL
442              TRUE USE-PACKAGE-PCL ZERO))              USE-PACKAGE-PCL ZERO TRUE))
443  (PROCLAIM  (PROCLAIM
444      '(FTYPE (FUNCTION (T) *) TYPE-FROM-SPECIALIZER *NORMALIZE-TYPE      '(FTYPE (FUNCTION (T) *) TYPE-FROM-SPECIALIZER *NORMALIZE-TYPE
445              DEFAULT-CODE-CONVERTER CONVERT-TO-SYSTEM-TYPE              DEFAULT-CODE-CONVERTER CONVERT-TO-SYSTEM-TYPE
# Line 464  Line 462 
462      '(FTYPE (FUNCTION (T FIXNUM *) T) GET-CACHE-FROM-CACHE      '(FTYPE (FUNCTION (T FIXNUM *) T) GET-CACHE-FROM-CACHE
463              COMPUTE-PRIMARY-CACHE-LOCATION-FROM-LOCATION))              COMPUTE-PRIMARY-CACHE-LOCATION-FROM-LOCATION))
464  (PROCLAIM  (PROCLAIM
465      '(FTYPE (FUNCTION (T) T) COMPILE-LAMBDA-UNCOMPILED GF-LAMBDA-LIST      '(FTYPE (FUNCTION (T) T) CLASS-OF CHECK-CACHE DISPATCH-CACHE
466              CACHING-CACHE CONSTANT-VALUE-CACHE COMPILE-LAMBDA-DEFERRED              CLASS-FROM-TYPE DEFAULT-METHOD-ONLY-CACHE DNET-METHODS-P
467              FUNCALLABLE-INSTANCE-P SHOW-DFUN-COSTS              ACCESSOR-DFUN-INFO-CACHE METHOD-FUNCTION-FROM-FAST-FUNCTION
468              RESET-CLASS-INITIALIZE-INFO GET-CACHE-VECTOR              INTERN-EQL-SPECIALIZER ONE-INDEX-DFUN-INFO-CACHE
469              CONSTANT-SYMBOL-P FREE-CACHE-VECTOR              ONE-INDEX-DFUN-INFO-ACCESSOR-TYPE
470              EARLY-METHOD-LAMBDA-LIST ARG-INFO-VALID-P DFUN-ARG-SYMBOL              METHOD-CALL-CALL-METHOD-ARGS KEYWORD-SPEC-NAME N-N-CACHE
471              EARLY-METHOD-CLASS EARLY-GF-P EARLY-GF-NAME              EXTRACT-LAMBDA-LIST GENERIC-CLOBBERS-FUNCTION
472              CACHING-DFUN-INFO COMPUTE-APPLICABLE-METHODS-EMF-STD-P              N-N-ACCESSOR-TYPE DEFAULT-CONSTANT-CONVERTER
473              CONSTANT-VALUE-DFUN-INFO RESET-CLASS-INITIALIZE-INFO-1              FAST-METHOD-CALL-PV-CELL WRAPPER-FOR-STRUCTURE
474              FREE-CACHE PARSE-SPECIALIZERS RESET-INITIALIZE-INFO              ONE-CLASS-CACHE FAST-METHOD-CALL-NEXT-METHOD-CALL
475              EARLY-METHOD-QUALIFIERS PROCLAIM-INCOMPATIBLE-SUPERCLASSES              ONE-CLASS-ACCESSOR-TYPE ONE-CLASS-INDEX BUILT-IN-WRAPPER-OF
476              WRAPPER-OF EARLY-METHOD-STANDARD-ACCESSOR-P              TWO-CLASS-CACHE BUILT-IN-OR-STRUCTURE-WRAPPER1
477              FUNCTION-PRETTY-ARGLIST GET-MAKE-INSTANCE-FUNCTION              WALKER::GET-WALKER-TEMPLATE TWO-CLASS-ACCESSOR-TYPE
478              CHECK-WRAPPER-VALIDITY UNPARSE-SPECIALIZERS              TWO-CLASS-INDEX GET-MAKE-INSTANCE-FUNCTION-SYMBOL
479              %SYMBOL-FUNCTION FINAL-ACCESSOR-DFUN-TYPE              ALLOCATE-CACHE-VECTOR TWO-CLASS-WRAPPER0
480              COMPLICATED-INSTANCE-CREATION-METHOD DEFAULT-STRUCTUREP              FLUSH-CACHE-VECTOR-INTERNAL COMPUTE-LINE-SIZE
481              UPDATE-GF-INFO CACHE-OWNER DEFAULT-STRUCTURE-INSTANCE-P              EXTRACT-SPECIALIZER-NAMES ONE-INDEX-CACHE
482              DEFAULT-STRUCTURE-TYPE STRUCTURE-TYPE              GF-PRECOMPUTE-DFUN-AND-EMF-P EARLY-CLASS-NAME
483              COMPUTE-STD-CPL-PHASE-2 GET-PV-CELL-FOR-CLASS              CANONICAL-SLOT-NAME ONE-INDEX-ACCESSOR-TYPE
484              STRUCTURE-TYPE-INCLUDED-TYPE-NAME              GF-INFO-STATIC-C-A-M-EMF COMPILE-LAMBDA-UNCOMPILED
485              STRUCTURE-TYPE-SLOT-DESCRIPTION-LIST CACHE-P              ONE-INDEX-INDEX INTERN-FUNCTION-NAME GF-LAMBDA-LIST
486              STRUCTURE-SLOTD-NAME STRUCTURE-SLOTD-ACCESSOR-SYMBOL SFUN-P              CHECKING-P CHECKING-CACHE CACHING-CACHE EARLY-CLASS-SLOTS
487              DEFAULT-SECONDARY-DISPATCH-FUNCTION              CONSTANT-VALUE-CACHE GF-INFO-C-A-M-EMF-STD-P
488              STRUCTURE-SLOTD-WRITER-FUNCTION FIND-CYCLE-REASONS              COMPILE-LAMBDA-DEFERRED STRUCTURE-TYPE-INTERNAL-SLOTDS
489              EARLY-CLASS-DEFINITION ECD-SOURCE STRUCTURE-SLOTD-TYPE              FUNCALLABLE-INSTANCE-P GF-INFO-FAST-MF-P SHOW-DFUN-COSTS
490              FORMAT-CYCLE-REASONS ECD-METACLASS CPD-CLASS              UNDEFMETHOD-1 RESET-CLASS-INITIALIZE-INFO
491              EARLY-CLASS-PRECEDENCE-LIST              METHOD-LL->GENERIC-FUNCTION-LL EARLY-COLLECT-CPL
492              METHODS-CONTAIN-EQL-SPECIALIZER-P MAKE-TYPE-PREDICATE              GET-CACHE-VECTOR EARLY-COLLECT-SLOTS CONSTANT-SYMBOL-P
493              CPD-SUPERS DEFAULT-TEST-CONVERTER EXPAND-LONG-DEFCOMBIN              ARG-INFO-P FREE-CACHE-VECTOR EARLY-METHOD-LAMBDA-LIST
494              INITIAL-P EARLY-CLASS-NAME-OF FORCE-CACHE-FLUSHES CPD-AFTER              FAST-METHOD-CALL-ARG-INFO ARG-INFO-VALID-P
495              EXPAND-SHORT-DEFCOMBIN MAKE-CALL-METHODS              EARLY-COLLECT-DEFAULT-INITARGS DFUN-ARG-SYMBOL
496              DEFAULT-CONSTANT-CONVERTER EARLY-CLASS-SLOTDS              ARG-INFO-NKEYS EARLY-METHOD-CLASS ECD-SUPERCLASS-NAMES
497              INITIAL-DISPATCH-P DISPATCH-P EARLY-SLOT-DEFINITION-NAME              EARLY-GF-P GF-DFUN-CACHE EARLY-GF-NAME GF-DFUN-INFO
498              SLOT-READER-SYMBOL GBOUNDP GMAKUNBOUND              CACHING-DFUN-INFO METHOD-CALL-P STRUCTURE-SLOT-BOUNDP
499              EARLY-SLOT-DEFINITION-LOCATION WALKER::ENV-LOCK              COMPUTE-APPLICABLE-METHODS-EMF-STD-P
500              DEFAULT-CONSTANTP MAKE-INITIAL-DFUN DEFAULT-METHOD-ONLY-P              CONSTANT-VALUE-DFUN-INFO FUNCTION-RETURNING-NIL
501              FGEN-TEST EARLY-ACCESSOR-METHOD-SLOT-NAME              RESET-CLASS-INITIALIZE-INFO-1 ITERATE::SEQUENCE-ACCESSOR
502              SLOT-WRITER-SYMBOL LOOKUP-FGEN WALKER::ENV-DECLARATIONS              MAKE-CALL-METHODS FREE-CACHE
503              ACCESSOR-DFUN-INFO-P WALKER::ENV-LEXICAL-VARIABLES              ACCESSOR-DFUN-INFO-ACCESSOR-TYPE PARSE-SPECIALIZERS
504              FGEN-GENERATOR FGEN-SYSTEM LIST-DFUN %FBOUNDP              ECD-CANONICAL-SLOTS RESET-INITIALIZE-INFO EVAL-FORM
505              SLOT-BOUNDP-SYMBOL ONE-INDEX-DFUN-INFO-P CCLOSUREP              ONE-INDEX-DFUN-INFO-INDEX EARLY-METHOD-QUALIFIERS
506              MAP-ALL-GENERIC-FUNCTIONS FAST-METHOD-CALL-P              ECD-OTHER-INITARGS PROCLAIM-INCOMPATIBLE-SUPERCLASSES
507              MAKE-STRUCTURE-SLOT-BOUNDP-FUNCTION N-N-P              SLOT-INITARGS-FROM-STRUCTURE-SLOTD WRAPPER-OF TYPE-CLASS
508              EARLY-CLASS-DIRECT-SUBCLASSES FAST-INSTANCE-BOUNDP-P              EARLY-METHOD-STANDARD-ACCESSOR-P ONE-CLASS-WRAPPER0
509              MAKE-FUNCTION-INLINE METHOD-FUNCTION-PV-TABLE              FUNCTION-PRETTY-ARGLIST EXTRACT-PARAMETERS
510              LIST-LARGE-CACHE METHOD-FUNCTION-METHOD STORE-FGEN              GET-MAKE-INSTANCE-FUNCTION CLASS-PREDICATE
511              CLASS-PRECEDENCE-DESCRIPTION-P ONE-CLASS-P              CHECK-WRAPPER-VALIDITY EXTRACT-REQUIRED-PARAMETERS
512              INFORM-TYPE-SYSTEM-ABOUT-STD-CLASS              UNPARSE-SPECIALIZERS MAKE-CLASS-EQ-PREDICATE
513                %SYMBOL-FUNCTION TWO-CLASS-WRAPPER1
514                FINAL-ACCESSOR-DFUN-TYPE MAKE-EQL-PREDICATE
515                COMPLICATED-INSTANCE-CREATION-METHOD CHECKING-FUNCTION
516                DEFAULT-STRUCTUREP BOOTSTRAP-ACCESSOR-DEFINITIONS
517                UPDATE-GF-INFO INITIALIZE-INFO-KEY CACHE-OWNER
518                BOOTSTRAP-CLASS-PREDICATES DEFAULT-STRUCTURE-INSTANCE-P
519                GET-BUILT-IN-CLASS-SYMBOL DEFAULT-STRUCTURE-TYPE
520                INITIALIZE-INFO-WRAPPER STRUCTURE-TYPE
521                GET-BUILT-IN-WRAPPER-SYMBOL COMPUTE-STD-CPL-PHASE-2
522                DO-STANDARD-DEFSETF-1 GET-PV-CELL-FOR-CLASS CACHING-P
523                STRUCTURE-TYPE-INCLUDED-TYPE-NAME GFS-OF-TYPE
524                STRUCTURE-TYPE-SLOT-DESCRIPTION-LIST LEGAL-CLASS-NAME-P
525                CACHE-P STRUCTURE-TYPE-P STRUCTURE-SLOTD-NAME
526                CONSTANT-VALUE-P STRUCTURE-SLOTD-ACCESSOR-SYMBOL
527                USE-DEFAULT-METHOD-ONLY-DFUN-P SFUN-P
528                INITIALIZE-INFO-CACHED-COMBINED-INITARGS-FORM-LIST
529                DEFAULT-SECONDARY-DISPATCH-FUNCTION WRAPPER-FIELD
530                STRUCTURE-SLOTD-WRITER-FUNCTION NEXT-WRAPPER-FIELD
531                FIND-CYCLE-REASONS SETFBOUNDP EARLY-CLASS-DEFINITION
532                GET-SETF-FUNCTION-NAME ECD-SOURCE
533                VARIABLE-GLOBALLY-SPECIAL-P USE-CACHING-DFUN-P
534                STRUCTURE-SLOTD-TYPE MAKE-PV-TYPE-DECLARATION
535                FORMAT-CYCLE-REASONS MAKE-CALLS-TYPE-DECLARATION
536                ECD-METACLASS MAP-SPECIALIZERS SYSTEM:%STRUCTURE-NAME
537                CPD-CLASS SLOT-VECTOR-SYMBOL EARLY-CLASS-PRECEDENCE-LIST
538                MAKE-PERMUTATION-VECTOR SYSTEM:%COMPILED-FUNCTION-NAME
539                METHODS-CONTAIN-EQL-SPECIALIZER-P STRUCTURE-OBJECT-P
540                MAKE-TYPE-PREDICATE EXPAND-MAKE-INSTANCE-FORM CPD-SUPERS
541                MAKE-CONSTANT-FUNCTION DEFAULT-TEST-CONVERTER
542                FUNCTION-RETURNING-T EXPAND-LONG-DEFCOMBIN SORT-SLOTS
543                INITIAL-P SORT-CALLS EARLY-CLASS-NAME-OF SYMBOL-PKG-NAME
544                FORCE-CACHE-FLUSHES
545                CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P CPD-AFTER
546                INITIALIZE-INFO-BOUND-SLOTS EARLY-CLASS-SLOTDS
547                INITIALIZE-INFO-CACHED-VALID-P INITIAL-DISPATCH-P
548                GET-MAKE-INSTANCE-FUNCTIONS DISPATCH-P
549                STRUCTURE-SLOTD-READER-FUNCTION
550                INITIALIZE-INFO-CACHED-RI-VALID-P
551                EARLY-SLOT-DEFINITION-NAME
552                INITIALIZE-INFO-CACHED-INITARGS-FORM-LIST
553                SLOT-READER-SYMBOL INITIALIZE-INFO-CACHED-NEW-KEYS GBOUNDP
554                UPDATE-C-A-M-GF-INFO GMAKUNBOUND
555                INITIALIZE-INFO-CACHED-DEFAULT-INITARGS-FUNCTION
556                EARLY-SLOT-DEFINITION-LOCATION
557                UPDATE-GF-SIMPLE-ACCESSOR-TYPE WALKER::ENV-LOCK
558                UPDATE-GFS-OF-CLASS DEFAULT-CONSTANTP
559                INITIALIZE-INFO-CACHED-SHARED-INITIALIZE-T-FUNCTION
560                MAKE-INITIAL-DFUN DO-STANDARD-DEFSETFS-FOR-DEFCLASS
561                DEFAULT-METHOD-ONLY-P STANDARD-SVUC-METHOD FGEN-TEST
562                INITIALIZE-INFO-CACHED-SHARED-INITIALIZE-NIL-FUNCTION
563                EARLY-ACCESSOR-METHOD-SLOT-NAME %CCLOSURE-ENV
564                SLOT-WRITER-SYMBOL STRUCTURE-SVUC-METHOD LOOKUP-FGEN
565                INITIALIZE-INFO-CACHED-CONSTANTS WALKER::ENV-DECLARATIONS
566                METHOD-FUNCTION-PLIST ACCESSOR-DFUN-INFO-P
567                INITIALIZE-INFO-CACHED-COMBINED-INITIALIZE-FUNCTION
568                WALKER::ENV-LEXICAL-VARIABLES
569                INITIALIZE-INFO-CACHED-MAKE-INSTANCE-FUNCTION
570                FGEN-GENERATOR
571                INITIALIZE-INFO-CACHED-MAKE-INSTANCE-FUNCTION-SYMBOL
572                FGEN-SYSTEM INTERNED-SYMBOL-P LIST-DFUN GDEFINITION
573                %FBOUNDP UPDATE-CLASS-CAN-PRECEDE-P SLOT-BOUNDP-SYMBOL
574                %STD-INSTANCE-WRAPPER ONE-INDEX-DFUN-INFO-P
575                %STD-INSTANCE-SLOTS CCLOSUREP PV-TABLEP
576                MAP-ALL-GENERIC-FUNCTIONS STD-INSTANCE-P FAST-METHOD-CALL-P
577                COMPUTE-MCASE-PARAMETERS
578                MAKE-STRUCTURE-SLOT-BOUNDP-FUNCTION COMPUTE-CLASS-SLOTS
579                N-N-P MAKE-PV-TABLE-TYPE-DECLARATION
580                EARLY-CLASS-DIRECT-SUBCLASSES NET-TEST-CONVERTER
581                FAST-INSTANCE-BOUNDP-P MAKE-INSTANCE-FUNCTION-SYMBOL
582                MAKE-FUNCTION-INLINE UPDATE-ALL-C-A-M-GF-INFO
583                METHOD-FUNCTION-PV-TABLE UPDATE-PV-TABLE-CACHE-INFO
584                LIST-LARGE-CACHE DFUN-INFO-CACHE METHOD-FUNCTION-METHOD
585                NO-METHODS-CACHE STORE-FGEN ARG-INFO-APPLYP
586                CLASS-PRECEDENCE-DESCRIPTION-P CACHING-DFUN-COST
587                ONE-CLASS-P INITIAL-CACHE
588                INFORM-TYPE-SYSTEM-ABOUT-STD-CLASS INITIAL-DISPATCH-CACHE
589              UNENCAPSULATED-FDEFINITION              UNENCAPSULATED-FDEFINITION
590              MAKE-DEFAULT-METHOD-GROUP-DESCRIPTION              MAKE-DEFAULT-METHOD-GROUP-DESCRIPTION
591              METHOD-FUNCTION-NEEDS-NEXT-METHODS-P DFUN-INFO-P              METHOD-FUNCTION-NEEDS-NEXT-METHODS-P DFUN-INFO-P
# Line 528  Line 602 
602              MAKE-OPTIMIZED-STRUCTURE-SLOT-BOUNDP-USING-CLASS-METHOD-FUNCTION              MAKE-OPTIMIZED-STRUCTURE-SLOT-BOUNDP-USING-CLASS-METHOD-FUNCTION
603              ARG-INFO-KEY/REST-P INITIALIZE-INFO-P ONE-INDEX-P              ARG-INFO-KEY/REST-P INITIALIZE-INFO-P ONE-INDEX-P
604              ECD-CLASS-NAME ARG-INFO-KEYWORDS COPY-CACHE              ECD-CLASS-NAME ARG-INFO-KEYWORDS COPY-CACHE
605              GF-INFO-SIMPLE-ACCESSOR-TYPE COMPUTE-LINE-SIZE              GF-INFO-SIMPLE-ACCESSOR-TYPE EXPAND-SHORT-DEFCOMBIN))
             GF-PRECOMPUTE-DFUN-AND-EMF-P CANONICAL-SLOT-NAME  
             GF-INFO-STATIC-C-A-M-EMF WALKER::GET-WALKER-TEMPLATE  
             CHECKING-P EARLY-CLASS-SLOTS GF-INFO-C-A-M-EMF-STD-P  
             STRUCTURE-TYPE-INTERNAL-SLOTDS GF-INFO-FAST-MF-P  
             UNDEFMETHOD-1 EARLY-COLLECT-CPL EARLY-COLLECT-SLOTS  
             ARG-INFO-P METHOD-LL->GENERIC-FUNCTION-LL  
             FAST-METHOD-CALL-ARG-INFO EARLY-COLLECT-DEFAULT-INITARGS  
             ARG-INFO-NKEYS ECD-SUPERCLASS-NAMES GF-DFUN-CACHE  
             GF-DFUN-INFO METHOD-CALL-P STRUCTURE-SLOT-BOUNDP  
             FUNCTION-RETURNING-NIL ITERATE::SEQUENCE-ACCESSOR  
             ACCESSOR-DFUN-INFO-ACCESSOR-TYPE ECD-CANONICAL-SLOTS  
             EVAL-FORM ONE-INDEX-DFUN-INFO-INDEX ECD-OTHER-INITARGS  
             SLOT-INITARGS-FROM-STRUCTURE-SLOTD TYPE-CLASS  
             ONE-CLASS-WRAPPER0 EXTRACT-PARAMETERS CLASS-PREDICATE  
             EXTRACT-REQUIRED-PARAMETERS MAKE-CLASS-EQ-PREDICATE  
             TWO-CLASS-WRAPPER1 MAKE-EQL-PREDICATE CHECKING-FUNCTION  
             BOOTSTRAP-ACCESSOR-DEFINITIONS INITIALIZE-INFO-KEY  
             BOOTSTRAP-CLASS-PREDICATES GET-BUILT-IN-CLASS-SYMBOL  
             INITIALIZE-INFO-WRAPPER GET-BUILT-IN-WRAPPER-SYMBOL  
             DO-STANDARD-DEFSETF-1 CACHING-P GFS-OF-TYPE  
             LEGAL-CLASS-NAME-P STRUCTURE-TYPE-P CONSTANT-VALUE-P  
             USE-DEFAULT-METHOD-ONLY-DFUN-P  
             INITIALIZE-INFO-CACHED-COMBINED-INITARGS-FORM-LIST  
             WRAPPER-FIELD NEXT-WRAPPER-FIELD SETFBOUNDP  
             GET-SETF-FUNCTION-NAME USE-CACHING-DFUN-P  
             MAKE-PV-TYPE-DECLARATION MAKE-CALLS-TYPE-DECLARATION  
             MAP-SPECIALIZERS SLOT-VECTOR-SYMBOL MAKE-PERMUTATION-VECTOR  
             VARIABLE-GLOBALLY-SPECIAL-P STRUCTURE-OBJECT-P  
             EXPAND-MAKE-INSTANCE-FORM MAKE-CONSTANT-FUNCTION  
             FUNCTION-RETURNING-T SORT-SLOTS SORT-CALLS SYMBOL-PKG-NAME  
             CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P  
             INITIALIZE-INFO-BOUND-SLOTS INITIALIZE-INFO-CACHED-VALID-P  
             GET-MAKE-INSTANCE-FUNCTIONS  
             INITIALIZE-INFO-CACHED-RI-VALID-P  
             INITIALIZE-INFO-CACHED-INITARGS-FORM-LIST  
             INITIALIZE-INFO-CACHED-NEW-KEYS UPDATE-C-A-M-GF-INFO  
             INITIALIZE-INFO-CACHED-DEFAULT-INITARGS-FUNCTION  
             UPDATE-GF-SIMPLE-ACCESSOR-TYPE UPDATE-GFS-OF-CLASS  
             INITIALIZE-INFO-CACHED-SHARED-INITIALIZE-T-FUNCTION  
             DO-STANDARD-DEFSETFS-FOR-DEFCLASS STANDARD-SVUC-METHOD  
             INITIALIZE-INFO-CACHED-SHARED-INITIALIZE-NIL-FUNCTION  
             %CCLOSURE-ENV STRUCTURE-SVUC-METHOD  
             INITIALIZE-INFO-CACHED-CONSTANTS CLASS-OF  
             METHOD-FUNCTION-PLIST  
             INITIALIZE-INFO-CACHED-COMBINED-INITIALIZE-FUNCTION  
             INITIALIZE-INFO-CACHED-MAKE-INSTANCE-FUNCTION  
             INITIALIZE-INFO-CACHED-MAKE-INSTANCE-FUNCTION-SYMBOL  
             INTERNED-SYMBOL-P GDEFINITION UPDATE-CLASS-CAN-PRECEDE-P  
             %STD-INSTANCE-WRAPPER %STD-INSTANCE-SLOTS PV-TABLEP  
             STD-INSTANCE-P COMPUTE-MCASE-PARAMETERS COMPUTE-CLASS-SLOTS  
             MAKE-PV-TABLE-TYPE-DECLARATION INTERN-EQL-SPECIALIZER  
             NET-TEST-CONVERTER MAKE-INSTANCE-FUNCTION-SYMBOL  
             UPDATE-ALL-C-A-M-GF-INFO UPDATE-PV-TABLE-CACHE-INFO  
             DFUN-INFO-CACHE EXTRACT-LAMBDA-LIST NO-METHODS-CACHE  
             ARG-INFO-APPLYP CACHING-DFUN-COST INITIAL-CACHE  
             SYSTEM:%STRUCTURE-NAME INITIAL-DISPATCH-CACHE  
             SYSTEM:%COMPILED-FUNCTION-NAME CHECK-CACHE DISPATCH-CACHE  
             CLASS-FROM-TYPE DEFAULT-METHOD-ONLY-CACHE DNET-METHODS-P  
             ACCESSOR-DFUN-INFO-CACHE METHOD-FUNCTION-FROM-FAST-FUNCTION  
             ONE-INDEX-DFUN-INFO-CACHE ONE-INDEX-DFUN-INFO-ACCESSOR-TYPE  
             METHOD-CALL-CALL-METHOD-ARGS KEYWORD-SPEC-NAME N-N-CACHE  
             GENERIC-CLOBBERS-FUNCTION N-N-ACCESSOR-TYPE  
             FAST-METHOD-CALL-PV-CELL WRAPPER-FOR-STRUCTURE  
             ONE-CLASS-CACHE EXTRACT-SPECIALIZER-NAMES  
             FAST-METHOD-CALL-NEXT-METHOD-CALL ONE-CLASS-ACCESSOR-TYPE  
             ONE-CLASS-INDEX BUILT-IN-WRAPPER-OF TWO-CLASS-CACHE  
             BUILT-IN-OR-STRUCTURE-WRAPPER1 TWO-CLASS-ACCESSOR-TYPE  
             TWO-CLASS-INDEX GET-MAKE-INSTANCE-FUNCTION-SYMBOL  
             ALLOCATE-CACHE-VECTOR TWO-CLASS-WRAPPER0  
             FLUSH-CACHE-VECTOR-INTERNAL ONE-INDEX-CACHE  
             EARLY-CLASS-NAME ONE-INDEX-ACCESSOR-TYPE ONE-INDEX-INDEX  
             INTERN-FUNCTION-NAME CHECKING-CACHE))  
 (PROCLAIM  
     '(FTYPE (FUNCTION (T *) *) COERCE-TO-CLASS GET-METHOD-FUNCTION  
             GET-FUNCTION GET-FUNCTION1 PARSE-METHOD-OR-SPEC  
             EXTRACT-DECLARATIONS GET-DFUN-CONSTRUCTOR MAP-ALL-CLASSES  
             MAKE-CACHING-DFUN MAKE-METHOD-FUNCTION-INTERNAL  
             PARSE-SPECIALIZED-LAMBDA-LIST MAKE-METHOD-LAMBDA-INTERNAL  
             MAKE-CONSTANT-VALUE-DFUN MAKE-FINAL-DFUN-INTERNAL  
             COMPILE-LAMBDA WALK-FORM MACROEXPAND-ALL ENSURE-CLASS  
             ENSURE-GENERIC-FUNCTION DISPATCH-DFUN-COST))  
 (PROCLAIM '(FTYPE (FUNCTION (T T *) (VALUES T T)) SYMBOL-APPEND))  
606  (PROCLAIM  (PROCLAIM
607      '(FTYPE (FUNCTION (T *) T) CAPITALIZE-WORDS      '(FTYPE (FUNCTION (T *) *) ENSURE-GENERIC-FUNCTION ENSURE-CLASS
608              INITIALIZE-INTERNAL-SLOT-GFS FIND-CLASS              COERCE-TO-CLASS GET-METHOD-FUNCTION GET-FUNCTION
609              MAKE-TYPE-PREDICATE-NAME SET-DFUN TRACE-METHOD              GET-FUNCTION1 PARSE-METHOD-OR-SPEC EXTRACT-DECLARATIONS
610              FIND-CLASS-CELL MAKE-FINAL-DFUN PV-TABLE-LOOKUP-PV-ARGS              GET-DFUN-CONSTRUCTOR MAP-ALL-CLASSES MAKE-CACHING-DFUN
611              USE-DISPATCH-DFUN-P WALKER::RELIST* WALKER::RELIST              MAKE-METHOD-FUNCTION-INTERNAL PARSE-SPECIALIZED-LAMBDA-LIST
612              FIND-CLASS-PREDICATE EARLY-METHOD-SPECIALIZERS              MAKE-METHOD-LAMBDA-INTERNAL MAKE-CONSTANT-VALUE-DFUN
613              USE-CONSTANT-VALUE-DFUN-P MAKE-EARLY-GF              MAKE-FINAL-DFUN-INTERNAL COMPILE-LAMBDA DISPATCH-DFUN-COST
614              ALLOCATE-FUNCALLABLE-INSTANCE SET-ARG-INFO              WALK-FORM MACROEXPAND-ALL MAKE-INSTANCE-1))
615              INITIALIZE-METHOD-FUNCTION UPDATE-DFUN MAKE-SPECIALIZABLE  (PROCLAIM '(FTYPE (FUNCTION (T T *) (VALUES T T)) SYMBOL-APPEND))
             ALLOCATE-STRUCTURE-INSTANCE ALLOCATE-STANDARD-INSTANCE  
             WALKER::WALKER-ENVIRONMENT-BIND-1  
             ITERATE::FUNCTION-LAMBDA-P ITERATE::MAYBE-WARN  
             MAKE-WRAPPER))  
616  (PROCLAIM  (PROCLAIM
617      '(FTYPE (FUNCTION (T T) *) SLOT-BOUNDP SLOT-VALUE SAUT-CLASS      '(FTYPE (FUNCTION (T T) *) *SUBTYPEP ITERATE::PARSE-DECLARATIONS
618              SPECIALIZER-APPLICABLE-USING-TYPE-P COMPUTE-TEST              INITIAL-DFUN SLOT-BOUNDP SLOT-VALUE SLOT-MAKUNBOUND
619                SAUT-CLASS SPECIALIZER-APPLICABLE-USING-TYPE-P COMPUTE-TEST
620              GET-NEW-FUNCTION-GENERATOR-INTERNAL COMPUTE-CODE              GET-NEW-FUNCTION-GENERATOR-INTERNAL COMPUTE-CODE
621              CLASS-APPLICABLE-USING-CLASS-P SAUT-AND SAUT-NOT              CLASS-APPLICABLE-USING-CLASS-P SAUT-AND SAUT-NOT
622              SAUT-PROTOTYPE DESTRUCTURE ENSURE-CLASS-VALUES              SAUT-PROTOTYPE DESTRUCTURE ENSURE-CLASS-VALUES
623              MAKE-DIRECT-SLOTD SLOT-MAKUNBOUND              MAKE-DIRECT-SLOTD MAKE-INSTANCE-FUNCTION-TRAP
             MAKE-INSTANCE-FUNCTION-TRAP  
624              GENERATE-FAST-CLASS-SLOT-ACCESS-P MUTATE-SLOTS-AND-CALLS              GENERATE-FAST-CLASS-SLOT-ACCESS-P MUTATE-SLOTS-AND-CALLS
625              INVOKE-EMF EMIT-DEFAULT-ONLY-FUNCTION SPLIT-DECLARATIONS              INVOKE-EMF EMIT-DEFAULT-ONLY-FUNCTION SPLIT-DECLARATIONS
626              EMIT-DEFAULT-ONLY SLOT-NAME-LISTS-FROM-SLOTS EMIT-CHECKING              EMIT-DEFAULT-ONLY SLOT-NAME-LISTS-FROM-SLOTS EMIT-CHECKING
627              UPDATE-SLOT-VALUE-GF-INFO EMIT-CACHING SDFUN-FOR-CACHING              UPDATE-SLOT-VALUE-GF-INFO EMIT-CACHING SDFUN-FOR-CACHING
628              SLOT-UNBOUND-INTERNAL MAKE-INSTANCE-1 SET-FUNCTION-NAME              SLOT-UNBOUND-INTERNAL SET-FUNCTION-NAME
629              COMPUTE-STD-CPL-PHASE-1 FORM-LIST-TO-LISP              COMPUTE-STD-CPL-PHASE-1 FORM-LIST-TO-LISP
630              FIND-SUPERCLASS-CHAIN SAUT-CLASS-EQ              FIND-SUPERCLASS-CHAIN SAUT-CLASS-EQ
631              COMPUTE-APPLICABLE-METHODS-USING-TYPES              COMPUTE-APPLICABLE-METHODS-USING-TYPES
632              CHECK-INITARGS-VALUES SAUT-EQL INSURE-DFUN *SUBTYPEP              CHECK-INITARGS-VALUES SAUT-EQL INSURE-DFUN))
633              ITERATE::PARSE-DECLARATIONS INITIAL-DFUN))  (PROCLAIM
634        '(FTYPE (FUNCTION (T *) T) FIND-CLASS CAPITALIZE-WORDS
635                INITIALIZE-INTERNAL-SLOT-GFS MAKE-TYPE-PREDICATE-NAME
636                SET-DFUN TRACE-METHOD FIND-CLASS-CELL MAKE-FINAL-DFUN
637                PV-TABLE-LOOKUP-PV-ARGS USE-DISPATCH-DFUN-P WALKER::RELIST*
638                WALKER::RELIST FIND-CLASS-PREDICATE
639                EARLY-METHOD-SPECIALIZERS USE-CONSTANT-VALUE-DFUN-P
640                MAKE-EARLY-GF ALLOCATE-FUNCALLABLE-INSTANCE SET-ARG-INFO
641                INITIALIZE-METHOD-FUNCTION UPDATE-DFUN MAKE-SPECIALIZABLE
642                ALLOCATE-STRUCTURE-INSTANCE ALLOCATE-STANDARD-INSTANCE
643                WALKER::WALKER-ENVIRONMENT-BIND-1
644                ITERATE::FUNCTION-LAMBDA-P ITERATE::MAYBE-WARN
645                MAKE-WRAPPER))
646  (PROCLAIM  (PROCLAIM
647      '(FTYPE (FUNCTION (T T) T) ADD-METHOD DO-SATISFIES-DEFTYPE      '(FTYPE (FUNCTION (T T) T) DO-SATISFIES-DEFTYPE
648              MEMF-CONSTANT-CONVERTER COMPUTE-CONSTANTS              MEMF-CONSTANT-CONVERTER COMPUTE-CONSTANTS
649              CLASS-CAN-PRECEDE-P SAUT-NOT-CLASS SAUT-NOT-CLASS-EQ              CLASS-CAN-PRECEDE-P SAUT-NOT-CLASS SAUT-NOT-CLASS-EQ
650              SAUT-NOT-PROTOTYPE GF-MAKE-FUNCTION-FROM-EMF SAUT-NOT-EQL              SAUT-NOT-PROTOTYPE GF-MAKE-FUNCTION-FROM-EMF SAUT-NOT-EQL
# Line 654  Line 654 
654              METHOD-FUNCTION-RETURNING-T VARIABLE-CLASS MAKE-PLIST              METHOD-FUNCTION-RETURNING-T VARIABLE-CLASS MAKE-PLIST
655              REMTAIL DESTRUCTURE-INTERNAL ACCESSOR-MISS-FUNCTION              REMTAIL DESTRUCTURE-INTERNAL ACCESSOR-MISS-FUNCTION
656              UPDATE-INITIALIZE-INFO-INTERNAL N-N-DFUN-INFO MAKE-CAXR              UPDATE-INITIALIZE-INFO-INTERNAL N-N-DFUN-INFO MAKE-CAXR
657              MAKE-CDXR CHECKING-DFUN-INFO              MAKE-CDXR CHECKING-DFUN-INFO MAKE-PV-TABLE-INTERNAL
             FUNCALLABLE-STANDARD-INSTANCE-ACCESS MAKE-PV-TABLE-INTERNAL  
658              FIND-SLOT-DEFINITION WALKER::WALK-REPEAT-EVAL              FIND-SLOT-DEFINITION WALKER::WALK-REPEAT-EVAL
659              WALKER::NOTE-DECLARATION MAKE-DFUN-LAMBDA-LIST              WALKER::NOTE-DECLARATION MAKE-DFUN-LAMBDA-LIST
660              WALKER::NOTE-LEXICAL-BINDING MAKE-DLAP-LAMBDA-LIST              WALKER::NOTE-LEXICAL-BINDING MAKE-DLAP-LAMBDA-LIST
# Line 666  Line 665 
665              WALKER::ENVIRONMENT-FUNCTION REMOVE-DIRECT-SUBCLASSES              WALKER::ENVIRONMENT-FUNCTION REMOVE-DIRECT-SUBCLASSES
666              REMOVE-SLOT-ACCESSORS SYMBOL-LESSP SYMBOL-OR-CONS-LESSP              REMOVE-SLOT-ACCESSORS SYMBOL-LESSP SYMBOL-OR-CONS-LESSP
667              |SETF PCL FIND-CLASS| |SETF PCL FIND-CLASS-PREDICATE|              |SETF PCL FIND-CLASS| |SETF PCL FIND-CLASS-PREDICATE|
668              PV-WRAPPERS-FROM-ALL-ARGS PV-TABLE-LOOKUP              PV-WRAPPERS-FROM-ALL-ARGS PV-TABLE-LOOKUP UPDATE-CPL
669              PROCLAIM-DEFGENERIC UPDATE-CPL LIST-EQ UPDATE-SLOTS              UPDATE-SLOTS PROCLAIM-DEFGENERIC UPDATE-INITS LIST-EQ
670              COMPUTE-APPLICABLE-METHODS-FUNCTION VARIABLE-LEXICAL-P              COMPUTE-APPLICABLE-METHODS-FUNCTION
671              VARIABLE-SPECIAL-P UPDATE-INITS UPDATE-STD-OR-STR-METHODS              UPDATE-STD-OR-STR-METHODS SET-STANDARD-SVUC-METHOD
672              SET-STANDARD-SVUC-METHOD EMIT-1-NIL-DLAP PLIST-VALUE              EMIT-1-NIL-DLAP PLIST-VALUE COMPUTE-LAYOUT
673              SET-STRUCTURE-SVUC-METHOD              SET-STRUCTURE-SVUC-METHOD
674              EMIT-1-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION              EMIT-1-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION
675              MEC-ALL-CLASSES-INTERNAL              MEC-ALL-CLASSES-INTERNAL NO-SLOT
676              EMIT-N-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION              EMIT-N-WRAPPER-COMPUTE-PRIMARY-CACHE-LOCATION
677              MEC-ALL-CLASSES %SET-CCLOSURE-ENV MEC-ALL-CLASS-LISTS              MEC-ALL-CLASSES %SET-CCLOSURE-ENV MEC-ALL-CLASS-LISTS
678              REDEFINE-FUNCTION METHODS-CONVERTER COMPUTE-LAYOUT NO-SLOT              REMOVE-METHOD REDEFINE-FUNCTION METHODS-CONVERTER
679              PV-WRAPPERS-FROM-ALL-WRAPPERS NET-CONSTANT-CONVERTER              ADD-METHOD PV-WRAPPERS-FROM-ALL-WRAPPERS
680              AUGMENT-TYPE CHANGE-CLASS-INTERNAL VALUE-FOR-CACHING              NET-CONSTANT-CONVERTER AUGMENT-TYPE CHANGE-CLASS-INTERNAL
681              |SETF PCL METHOD-FUNCTION-PLIST| GET-KEY-ARG GET-KEY-ARG1              VALUE-FOR-CACHING |SETF PCL METHOD-FUNCTION-PLIST|
682              SET-METHODS SET-FUNCTION-PRETTY-ARGLIST              GET-KEY-ARG GET-KEY-ARG1 SET-METHODS
683              FIND-STANDARD-II-METHOD MAKE-EARLY-ACCESSOR              SET-FUNCTION-PRETTY-ARGLIST FIND-STANDARD-II-METHOD
684                SET-FUNCALLABLE-INSTANCE-FUNCTION MAKE-EARLY-ACCESSOR
685              DOCTOR-DFUN-FOR-THE-DEBUGGER COMPUTE-STD-CPL              DOCTOR-DFUN-FOR-THE-DEBUGGER COMPUTE-STD-CPL
686              |SETF PCL GDEFINITION| MAKE-DISCRIMINATING-FUNCTION-ARGLIST              |SETF PCL GDEFINITION| MAKE-DISCRIMINATING-FUNCTION-ARGLIST
687              ADD-FORMS CPL-INCONSISTENT-ERROR              ADD-FORMS CPL-INCONSISTENT-ERROR
688              REDIRECT-EARLY-FUNCTION-INTERNAL ADD-TO-CVECTOR              REDIRECT-EARLY-FUNCTION-INTERNAL ADD-TO-CVECTOR
689              BOOTSTRAP-SLOT-INDEX QUALIFIER-CHECK-RUNTIME              BOOTSTRAP-SLOT-INDEX QUALIFIER-CHECK-RUNTIME
690                FUNCALLABLE-STANDARD-INSTANCE-ACCESS
691              CPL-FORWARD-REFERENCED-CLASS-ERROR REAL-REMOVE-METHOD              CPL-FORWARD-REFERENCED-CLASS-ERROR REAL-REMOVE-METHOD
692              WALKER::ENVIRONMENT-MACRO CANONICALIZE-SLOT-SPECIFICATION              WALKER::ENVIRONMENT-MACRO CANONICALIZE-SLOT-SPECIFICATION
693              CANONICALIZE-DEFCLASS-OPTION SET-WRAPPER              CANONICALIZE-DEFCLASS-OPTION SET-WRAPPER
694              DEAL-WITH-ARGUMENTS-OPTION PARSE-QUALIFIER-PATTERN              DEAL-WITH-ARGUMENTS-OPTION PARSE-QUALIFIER-PATTERN
695              SWAP-WRAPPERS-AND-SLOTS ITERATE::MV-SETQ              SLOT-EXISTS-P SWAP-WRAPPERS-AND-SLOTS ITERATE::MV-SETQ
696              MAKE-UNORDERED-METHODS-EMF CLASS-MIGHT-PRECEDE-P              MAKE-UNORDERED-METHODS-EMF CLASS-MIGHT-PRECEDE-P
697              ITERATE::EXTRACT-SPECIAL-BINDINGS              ITERATE::EXTRACT-SPECIAL-BINDINGS
698              WALKER::VARIABLE-SYMBOL-MACRO-P RAISE-METATYPE              WALKER::VARIABLE-SYMBOL-MACRO-P VARIABLE-LEXICAL-P
699              SLOT-EXISTS-P PROCLAIM-DEFMETHOD STANDARD-INSTANCE-ACCESS              RAISE-METATYPE VARIABLE-SPECIAL-P STANDARD-INSTANCE-ACCESS
700              REMOVE-METHOD              PROCLAIM-DEFMETHOD FDEFINE-CAREFULLY
701              SET-FUNCALLABLE-INSTANCE-FUNCTION              MAKE-INTERNAL-READER-METHOD-FUNCTION
             SYSTEM:%SET-COMPILED-FUNCTION-NAME FDEFINE-CAREFULLY  
             MAKE-INTERNAL-READER-METHOD-FUNCTION  
702              MAKE-STD-READER-METHOD-FUNCTION              MAKE-STD-READER-METHOD-FUNCTION
703              MAKE-STD-WRITER-METHOD-FUNCTION              MAKE-STD-WRITER-METHOD-FUNCTION
704              ITERATE::SIMPLE-EXPAND-ITERATE-FORM              ITERATE::SIMPLE-EXPAND-ITERATE-FORM
705              MAKE-STD-BOUNDP-METHOD-FUNCTION))              MAKE-STD-BOUNDP-METHOD-FUNCTION
706                SYSTEM:%SET-COMPILED-FUNCTION-NAME))
707  (PROCLAIM '(FTYPE (FUNCTION NIL FIXNUM) GET-WRAPPER-CACHE-NUMBER))  (PROCLAIM '(FTYPE (FUNCTION NIL FIXNUM) GET-WRAPPER-CACHE-NUMBER))
708  (IN-PACKAGE "PCL")  (IN-PACKAGE "PCL")
709    
710  (DOLIST (V '(|(FAST-WRITER-METHOD SLOT-OBJECT DIRECT-METHODS)|  (DOLIST (V '(|(FAST-WRITER-METHOD SLOT-OBJECT FROM-DEFCLASS-P)|
711                    |(FAST-WRITER-METHOD SLOT-OBJECT DIRECT-METHODS)|
712                  |(FAST-WRITER-METHOD SLOT-OBJECT SLOTS)|                  |(FAST-WRITER-METHOD SLOT-OBJECT SLOTS)|
713                  |(FAST-WRITER-METHOD SLOT-CLASS SLOTS)|                  |(FAST-WRITER-METHOD SLOT-CLASS SLOTS)|
714                  |(FAST-WRITER-METHOD SLOT-OBJECT DIRECT-SLOTS)|                  |(FAST-WRITER-METHOD SLOT-OBJECT DIRECT-SLOTS)|
715                  |(FAST-WRITER-METHOD SLOT-CLASS DIRECT-SLOTS)|                  |(FAST-WRITER-METHOD SLOT-CLASS DIRECT-SLOTS)|
                 |(FAST-WRITER-METHOD SLOT-OBJECT FROM-DEFCLASS-P)|  
716                  |(FAST-WRITER-METHOD SLOT-OBJECT METHODS)|                  |(FAST-WRITER-METHOD SLOT-OBJECT METHODS)|
717                  |(FAST-WRITER-METHOD STANDARD-GENERIC-FUNCTION METHODS)|                  |(FAST-WRITER-METHOD STANDARD-GENERIC-FUNCTION METHODS)|
718                  |(FAST-WRITER-METHOD SLOT-OBJECT OPTIONS)|                  |(FAST-WRITER-METHOD SLOT-OBJECT OPTIONS)|
# Line 754  Line 754 
754                  |(FAST-READER-METHOD SLOT-OBJECT OPERATOR)|                  |(FAST-READER-METHOD SLOT-OBJECT OPERATOR)|
755                  |(FAST-READER-METHOD SLOT-OBJECT DEFSTRUCT-CONSTRUCTOR)|                  |(FAST-READER-METHOD SLOT-OBJECT DEFSTRUCT-CONSTRUCTOR)|
756                  |(FAST-READER-METHOD STRUCTURE-CLASS DEFSTRUCT-CONSTRUCTOR)|                  |(FAST-READER-METHOD STRUCTURE-CLASS DEFSTRUCT-CONSTRUCTOR)|
                 |LISP::CHARACTER class predicate|  
757                  COMPATIBLE-META-CLASS-CHANGE-P                  COMPATIBLE-META-CLASS-CHANGE-P
758                    |LISP::CHARACTER class predicate|
759                  |LISP::SEQUENCE class predicate|                  |LISP::SEQUENCE class predicate|
760                  |(FAST-READER-METHOD SLOT-OBJECT CLASS-EQ-SPECIALIZER)|                  |(FAST-READER-METHOD SLOT-OBJECT CLASS-EQ-SPECIALIZER)|
761                  |(FAST-READER-METHOD CLASS CLASS-EQ-SPECIALIZER)|                  |(FAST-READER-METHOD CLASS CLASS-EQ-SPECIALIZER)|
# Line 795  Line 795 
795                  |(BOUNDP CAN-PRECEDE-LIST)| |(BOUNDP PROTOTYPE)|                  |(BOUNDP CAN-PRECEDE-LIST)| |(BOUNDP PROTOTYPE)|
796                  CLASS-EQ-SPECIALIZER INFORM-TYPE-SYSTEM-ABOUT-CLASS                  CLASS-EQ-SPECIALIZER INFORM-TYPE-SYSTEM-ABOUT-CLASS
797                  |PCL::DEFINITION-SOURCE-MIXIN class predicate|                  |PCL::DEFINITION-SOURCE-MIXIN class predicate|
798                  |(BOUNDP DFUN-STATE)| |(BOUNDP FROM-DEFCLASS-P)|                  |(BOUNDP DFUN-STATE)|
799                  |(READER METHOD)|                  |LISP::STRUCTURE-OBJECT class predicate|
800                    |(BOUNDP FROM-DEFCLASS-P)| |(READER METHOD)|
801                    |LISP::STANDARD-OBJECT class predicate|
802                  |(CALL STANDARD-COMPUTE-EFFECTIVE-METHOD)|                  |(CALL STANDARD-COMPUTE-EFFECTIVE-METHOD)|
803                  |(BOUNDP FAST-FUNCTION)|                  |(BOUNDP FAST-FUNCTION)|
804                  |LISP::COMPLEX class predicate| |(BOUNDP METHOD-CLASS)|                  |LISP::COMPLEX class predicate| |(BOUNDP METHOD-CLASS)|
# Line 807  Line 809 
809                  |(BOUNDP BOUNDP-FUNCTION)| |(BOUNDP DIRECT-SUBCLASSES)|                  |(BOUNDP BOUNDP-FUNCTION)| |(BOUNDP DIRECT-SUBCLASSES)|
810                  |(BOUNDP DIRECT-SUPERCLASSES)| |(BOUNDP METHODS)|                  |(BOUNDP DIRECT-SUPERCLASSES)| |(BOUNDP METHODS)|
811                  |(BOUNDP OPTIONS)| |(WRITER METHOD)|                  |(BOUNDP OPTIONS)| |(WRITER METHOD)|
812                    |LISP::BUILT-IN-CLASS class predicate|
813                  |PCL::DEPENDENT-UPDATE-MIXIN class predicate|                  |PCL::DEPENDENT-UPDATE-MIXIN class predicate|
814                  GENERIC-FUNCTION-PRETTY-ARGLIST |(WRITER SOURCE)|                  GENERIC-FUNCTION-PRETTY-ARGLIST |(WRITER SOURCE)|
                 |(FAST-METHOD SLOTS-TO-INSPECT (SLOT-CLASS SLOT-OBJECT))|  
                 |(FAST-METHOD SPECIALIZER-DIRECT-GENERIC-FUNCTIONS (SPECIALIZER-WITH-OBJECT))|  
                 |(FAST-METHOD SPECIALIZER-DIRECT-METHODS (SPECIALIZER-WITH-OBJECT))|  
815                  |(FAST-METHOD UPDATE-INSTANCE-FOR-DIFFERENT-CLASS (STANDARD-OBJECT STANDARD-OBJECT))|                  |(FAST-METHOD UPDATE-INSTANCE-FOR-DIFFERENT-CLASS (STANDARD-OBJECT STANDARD-OBJECT))|
                 |(FAST-METHOD REINITIALIZE-INSTANCE (SLOT-OBJECT))|  
816                  |(FAST-METHOD INITIALIZE-INSTANCE (SLOT-OBJECT))|                  |(FAST-METHOD INITIALIZE-INSTANCE (SLOT-OBJECT))|
817                  |(FAST-METHOD SPECIALIZER-CLASS (EQL-SPECIALIZER))|                  |(FAST-METHOD SLOTS-TO-INSPECT (SLOT-CLASS SLOT-OBJECT))|
818                  |(FAST-METHOD SAME-SPECIALIZER-P (EQL-SPECIALIZER EQL-SPECIALIZER))|                  |(FAST-METHOD REINITIALIZE-INSTANCE (SLOT-OBJECT))|
819                  |(FAST-METHOD SAME-SPECIALIZER-P (CLASS-EQ-SPECIALIZER CLASS-EQ-SPECIALIZER))|                  |(FAST-METHOD SPECIALIZER-DIRECT-METHODS (SPECIALIZER-WITH-OBJECT))|
820                    |(FAST-METHOD SPECIALIZER-DIRECT-GENERIC-FUNCTIONS (SPECIALIZER-WITH-OBJECT))|
821                  |(FAST-METHOD SAME-SPECIALIZER-P (SPECIALIZER SPECIALIZER))|                  |(FAST-METHOD SAME-SPECIALIZER-P (SPECIALIZER SPECIALIZER))|
822                  |(FAST-METHOD SPECIALIZER-METHOD-TABLE (CLASS-EQ-SPECIALIZER))|                  |(FAST-METHOD SAME-SPECIALIZER-P (CLASS-EQ-SPECIALIZER CLASS-EQ-SPECIALIZER))|
823                    |(FAST-METHOD SAME-SPECIALIZER-P (EQL-SPECIALIZER EQL-SPECIALIZER))|
824                    |(FAST-METHOD SPECIALIZER-CLASS (EQL-SPECIALIZER))|
825                  |(FAST-METHOD SPECIALIZER-METHOD-TABLE (EQL-SPECIALIZER))|                  |(FAST-METHOD SPECIALIZER-METHOD-TABLE (EQL-SPECIALIZER))|
826                    |(FAST-METHOD SPECIALIZER-METHOD-TABLE (CLASS-EQ-SPECIALIZER))|
827                  MAKE-BOUNDP-METHOD-FUNCTION                  MAKE-BOUNDP-METHOD-FUNCTION
828                  |LISP::STRING class predicate|                  |LISP::STRING class predicate|
829                  |(FAST-METHOD (SETF DOCUMENTATION) (T DOCUMENTATION-MIXIN))|                  |(FAST-METHOD (SETF DOCUMENTATION) (T DOCUMENTATION-MIXIN))|
830                  |(FAST-METHOD DOCUMENTATION (DOCUMENTATION-MIXIN))|                  |(FAST-METHOD DOCUMENTATION (DOCUMENTATION-MIXIN))|
831                  |PCL::METAOBJECT class predicate|                  |PCL::METAOBJECT class predicate|
832                  |(FAST-METHOD ACCESSOR-METHOD-SLOT-NAME (TRACED-METHOD))|                  |(FAST-METHOD (SETF SLOT-VALUE-USING-CLASS) (T STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))|
833                  |(FAST-METHOD METHOD-QUALIFIERS (TRACED-METHOD))|                  |(FAST-METHOD SLOT-MAKUNBOUND-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))|
834                  |(FAST-METHOD METHOD-SPECIALIZERS (TRACED-METHOD))|                  |(FAST-METHOD SLOT-BOUNDP-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))|
835                  |(FAST-METHOD METHOD-LAMBDA-LIST (TRACED-METHOD))|                  |(FAST-METHOD SLOT-MAKUNBOUND-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))|
836                  |(FAST-METHOD METHOD-PRETTY-ARGLIST (STANDARD-METHOD))|                  |(FAST-METHOD SLOT-BOUNDP-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))|
                 |(FAST-METHOD GENERIC-FUNCTION-PRETTY-ARGLIST (STANDARD-GENERIC-FUNCTION))|  
                 |(FAST-METHOD FUNCTION-KEYWORDS (STANDARD-METHOD))|  
                 |(FAST-METHOD COMPUTE-DISCRIMINATING-FUNCTION (STANDARD-GENERIC-FUNCTION))|  
                 |(FAST-METHOD REINITIALIZE-INSTANCE :AFTER (STANDARD-GENERIC-FUNCTION))|  
                 |(FAST-METHOD INITIALIZE-INSTANCE :AFTER (STANDARD-GENERIC-FUNCTION))|  
837                  |(FAST-METHOD GF-FAST-METHOD-FUNCTION-P (STANDARD-GENERIC-FUNCTION))|                  |(FAST-METHOD GF-FAST-METHOD-FUNCTION-P (STANDARD-GENERIC-FUNCTION))|
838                  |(FAST-METHOD GENERIC-FUNCTION-LAMBDA-LIST (GENERIC-FUNCTION))|                  |(FAST-METHOD GENERIC-FUNCTION-LAMBDA-LIST (GENERIC-FUNCTION))|
                 |(FAST-METHOD COMPUTE-DISCRIMINATING-FUNCTION-ARGLIST-INFO (STANDARD-GENERIC-FUNCTION))|  
839                  |(FAST-METHOD METHOD-QUALIFIERS (STANDARD-METHOD))|                  |(FAST-METHOD METHOD-QUALIFIERS (STANDARD-METHOD))|
                 |(FAST-METHOD REINITIALIZE-INSTANCE (STANDARD-METHOD))|  
840                  |(FAST-METHOD ACCESSOR-METHOD-CLASS (STANDARD-WRITER-METHOD))|                  |(FAST-METHOD ACCESSOR-METHOD-CLASS (STANDARD-WRITER-METHOD))|
841                  |(FAST-METHOD ACCESSOR-METHOD-CLASS (STANDARD-ACCESSOR-METHOD))|                  |(FAST-METHOD ACCESSOR-METHOD-CLASS (STANDARD-ACCESSOR-METHOD))|
842                  |(FAST-METHOD METHOD-FUNCTION (STANDARD-METHOD))|                  |(FAST-METHOD METHOD-LAMBDA-LIST (TRACED-METHOD))|
843                  |(FAST-METHOD CHANGE-CLASS (T SYMBOL))|                  |(FAST-METHOD METHOD-SPECIALIZERS (TRACED-METHOD))|
844                    |(FAST-METHOD METHOD-QUALIFIERS (TRACED-METHOD))|
845                    |(FAST-METHOD ACCESSOR-METHOD-SLOT-NAME (TRACED-METHOD))|
846                    |(FAST-METHOD COMPUTE-DISCRIMINATING-FUNCTION (STANDARD-GENERIC-FUNCTION))|
847                    |(FAST-METHOD FUNCTION-KEYWORDS (STANDARD-METHOD))|
848                    |(FAST-METHOD METHOD-PRETTY-ARGLIST (STANDARD-METHOD))|
849                  |(FAST-METHOD MAKE-INSTANCES-OBSOLETE (SYMBOL))|                  |(FAST-METHOD MAKE-INSTANCES-OBSOLETE (SYMBOL))|
850                  |(FAST-METHOD REMOVE-DIRECT-METHOD (SPECIALIZER-WITH-OBJECT METHOD))|                  |(FAST-METHOD METHOD-FUNCTION (STANDARD-METHOD))|
851                  |(FAST-METHOD ADD-DIRECT-METHOD (SPECIALIZER-WITH-OBJECT METHOD))|                  |(FAST-METHOD COMPUTE-DISCRIMINATING-FUNCTION-ARGLIST-INFO (STANDARD-GENERIC-FUNCTION))|
                 |(FAST-METHOD REMOVE-DIRECT-METHOD (CLASS METHOD))|  
                 |(FAST-METHOD ADD-DIRECT-METHOD (CLASS METHOD))|  
852                  |(FAST-METHOD (SETF DOCUMENTATION) (T STANDARD-SLOT-DEFINITION))|                  |(FAST-METHOD (SETF DOCUMENTATION) (T STANDARD-SLOT-DEFINITION))|
853                  |(FAST-METHOD DOCUMENTATION (STANDARD-SLOT-DEFINITION))|                  |(FAST-METHOD SLOT-VALUE-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))|
854                  |(FAST-METHOD SLOT-DEFINITION-ALLOCATION (STRUCTURE-SLOT-DEFINITION))|                  |(FAST-METHOD SLOT-VALUE-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))|
                 |(FAST-METHOD INITIALIZE-INTERNAL-SLOT-FUNCTIONS (EFFECTIVE-SLOT-DEFINITION))|  
855                  |(FAST-METHOD MAKE-INSTANCE (SYMBOL))|                  |(FAST-METHOD MAKE-INSTANCE (SYMBOL))|
856                  |(FAST-METHOD SLOT-MAKUNBOUND-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))|                  |(FAST-METHOD DOCUMENTATION (STANDARD-SLOT-DEFINITION))|
857                  |(FAST-METHOD SLOT-BOUNDP-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))|                  |(FAST-METHOD CHANGE-CLASS (T SYMBOL))|
858                  |(FAST-METHOD (SETF SLOT-VALUE-USING-CLASS) (T STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))|                  |(FAST-METHOD (SETF SLOT-VALUE-USING-CLASS) (T STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))|
859                  |(FAST-METHOD SLOT-VALUE-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))|                  |(FAST-METHOD ADD-DIRECT-METHOD (CLASS METHOD))|
860                  |(FAST-METHOD SLOT-MAKUNBOUND-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))|                  |(FAST-METHOD REMOVE-DIRECT-METHOD (CLASS METHOD))|
861                  |(FAST-METHOD SLOT-BOUNDP-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))|                  |(FAST-METHOD ADD-DIRECT-METHOD (SPECIALIZER-WITH-OBJECT METHOD))|
862                  |(FAST-METHOD (SETF SLOT-VALUE-USING-CLASS) (T STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))|                  |(FAST-METHOD REMOVE-DIRECT-METHOD (SPECIALIZER-WITH-OBJECT METHOD))|
863                  |(FAST-METHOD SLOT-VALUE-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))|                  |(FAST-METHOD REINITIALIZE-INSTANCE (STANDARD-METHOD))|
864                  |(FAST-METHOD SPECIALIZER-CLASS (CLASS))|                  |(FAST-METHOD INITIALIZE-INSTANCE :AFTER (STANDARD-GENERIC-FUNCTION))|
865                  |(FAST-METHOD SAME-SPECIALIZER-P (CLASS CLASS))|                  |(FAST-METHOD REINITIALIZE-INSTANCE :AFTER (STANDARD-GENERIC-FUNCTION))|
866                  |(FAST-METHOD ALLOCATE-INSTANCE (FUNCALLABLE-STANDARD-CLASS))|                  |(FAST-METHOD GENERIC-FUNCTION-PRETTY-ARGLIST (STANDARD-GENERIC-FUNCTION))|
867                  |(FAST-METHOD VALIDATE-SUPERCLASS (FUNCALLABLE-STANDARD-CLASS STANDARD-CLASS))|                  |(FAST-METHOD INITIALIZE-INTERNAL-SLOT-FUNCTIONS (EFFECTIVE-SLOT-DEFINITION))|
868                  |(FAST-METHOD RAW-INSTANCE-ALLOCATOR (FUNCALLABLE-STANDARD-CLASS))|                  |(FAST-METHOD SLOT-DEFINITION-ALLOCATION (STRUCTURE-SLOT-DEFINITION))|
869                  |(FAST-METHOD SLOTS-FETCHER (FUNCALLABLE-STANDARD-CLASS))|                  |(FAST-METHOD ENSURE-CLASS-USING-CLASS (T PCL-CLASS))|
870                  |(FAST-METHOD WRAPPER-FETCHER (FUNCALLABLE-STANDARD-CLASS))|                  |(FAST-METHOD RAW-INSTANCE-ALLOCATOR (STANDARD-CLASS))|
871                  |(FAST-METHOD COMPUTE-CLASS-PRECEDENCE-LIST (SLOT-CLASS))|                  |(FAST-METHOD SLOTS-FETCHER (STANDARD-CLASS))|
                 |(FAST-METHOD VALIDATE-SUPERCLASS (SLOT-CLASS FORWARD-REFERENCED-CLASS))|  
                 |(FAST-METHOD VALIDATE-SUPERCLASS (CLASS BUILT-IN-CLASS))|  
872                  |(FAST-METHOD CLASS-DEFAULT-INITARGS (BUILT-IN-CLASS))|                  |(FAST-METHOD CLASS-DEFAULT-INITARGS (BUILT-IN-CLASS))|
873                    |(FAST-METHOD WRAPPER-FETCHER (STANDARD-CLASS))|
874                  |(FAST-METHOD CLASS-DIRECT-DEFAULT-INITARGS (BUILT-IN-CLASS))|                  |(FAST-METHOD CLASS-DIRECT-DEFAULT-INITARGS (BUILT-IN-CLASS))|
875                  |(FAST-METHOD CLASS-SLOTS (BUILT-IN-CLASS))|                  |(FAST-METHOD CLASS-SLOTS (BUILT-IN-CLASS))|
876                  |(FAST-METHOD CLASS-DIRECT-SLOTS (BUILT-IN-CLASS))|                  |(FAST-METHOD CLASS-DIRECT-SLOTS (BUILT-IN-CLASS))|
                 |(FAST-METHOD CHANGE-CLASS (STANDARD-OBJECT FUNCALLABLE-STANDARD-CLASS))|  
                 |(FAST-METHOD CHANGE-CLASS (STANDARD-OBJECT STANDARD-CLASS))|  
877                  |(FAST-METHOD MAKE-INSTANCES-OBSOLETE (STD-CLASS))|                  |(FAST-METHOD MAKE-INSTANCES-OBSOLETE (STD-CLASS))|
878                  |(FAST-METHOD VALIDATE-SUPERCLASS (CLASS CLASS))|                  |(FAST-METHOD CLASS-PROTOTYPE (STD-CLASS))|
879                  |(FAST-METHOD COMPUTE-SLOTS :AROUND (STRUCTURE-CLASS))|                  |(FAST-METHOD CLASS-PROTOTYPE (STRUCTURE-CLASS))|
880                  |(FAST-METHOD COMPUTE-SLOTS (STRUCTURE-CLASS))|                  |(FAST-METHOD ALLOCATE-INSTANCE (STRUCTURE-CLASS))|
                 |(FAST-METHOD COMPUTE-SLOTS :AROUND (STD-CLASS))|  
                 |(FAST-METHOD COMPUTE-SLOTS (STD-CLASS))|  
                 |(FAST-METHOD COMPUTE-DEFAULT-INITARGS (SLOT-CLASS))|  
                 |(FAST-METHOD FINALIZE-INHERITANCE (STD-CLASS))|  
                 |(FAST-METHOD FINALIZE-INHERITANCE (STRUCTURE-CLASS))|  
881                  |(FAST-METHOD REINITIALIZE-INSTANCE :AFTER (SLOT-CLASS))|                  |(FAST-METHOD REINITIALIZE-INSTANCE :AFTER (SLOT-CLASS))|
882                  |(FAST-METHOD REINITIALIZE-INSTANCE :BEFORE (SLOT-CLASS))|                  |(FAST-METHOD ALLOCATE-INSTANCE (STANDARD-CLASS))|
883                  |(FAST-METHOD ENSURE-CLASS-USING-CLASS (T PCL-CLASS))|                  |(FAST-METHOD VALIDATE-SUPERCLASS (FUNCALLABLE-STANDARD-CLASS STANDARD-CLASS))|
884                  |(FAST-METHOD SPECIALIZER-DIRECT-GENERIC-FUNCTIONS (CLASS))|                  |(FAST-METHOD ALLOCATE-INSTANCE (FUNCALLABLE-STANDARD-CLASS))|
885                  |(FAST-METHOD SPECIALIZER-DIRECT-METHODS (CLASS))|                  |(FAST-METHOD MAKE-INSTANCE (CLASS))|
886                  |(FAST-METHOD REMOVE-DIRECT-SUBCLASS (CLASS CLASS))|                  |(FAST-METHOD SAME-SPECIALIZER-P (CLASS CLASS))|
887                  |(FAST-METHOD ADD-DIRECT-SUBCLASS (CLASS CLASS))|                  |(FAST-METHOD ADD-DIRECT-SUBCLASS (CLASS CLASS))|
888                  |(FAST-METHOD CLASS-SLOT-CELLS (STD-CLASS))|                  |(FAST-METHOD REMOVE-DIRECT-SUBCLASS (CLASS CLASS))|
889                    |(FAST-METHOD REINITIALIZE-INSTANCE :BEFORE (SLOT-CLASS))|
890                    |(FAST-METHOD VALIDATE-SUPERCLASS (CLASS CLASS))|
891                    |(FAST-METHOD CHANGE-CLASS (STANDARD-OBJECT STANDARD-CLASS))|
892                    |(FAST-METHOD CHANGE-CLASS (STANDARD-OBJECT FUNCALLABLE-STANDARD-CLASS))|
893                    |(FAST-METHOD VALIDATE-SUPERCLASS (CLASS BUILT-IN-CLASS))|
894                    |(FAST-METHOD VALIDATE-SUPERCLASS (SLOT-CLASS FORWARD-REFERENCED-CLASS))|
895                    |(FAST-METHOD COMPUTE-CLASS-PRECEDENCE-LIST (SLOT-CLASS))|
896                    |(FAST-METHOD WRAPPER-FETCHER (FUNCALLABLE-STANDARD-CLASS))|
897                    |(FAST-METHOD SLOTS-FETCHER (FUNCALLABLE-STANDARD-CLASS))|
898                    |(FAST-METHOD RAW-INSTANCE-ALLOCATOR (FUNCALLABLE-STANDARD-CLASS))|
899                  |(FAST-METHOD CLASS-CONSTRUCTORS (SLOT-CLASS))|                  |(FAST-METHOD CLASS-CONSTRUCTORS (SLOT-CLASS))|
900                  |(FAST-METHOD CLASS-DEFAULT-INITARGS (SLOT-CLASS))|                  |(FAST-METHOD CLASS-SLOT-CELLS (STD-CLASS))|
901                  |(FAST-METHOD CLASS-DIRECT-DEFAULT-INITARGS (SLOT-CLASS))|                  |(FAST-METHOD SPECIALIZER-CLASS (CLASS))|
902                  |(FAST-METHOD CLASS-PROTOTYPE (STRUCTURE-CLASS))|                  |(FAST-METHOD SPECIALIZER-DIRECT-METHODS (CLASS))|
903                  |(FAST-METHOD CLASS-PROTOTYPE (STD-CLASS))|                  |(FAST-METHOD SPECIALIZER-DIRECT-GENERIC-FUNCTIONS (CLASS))|
904                    |(FAST-METHOD FINALIZE-INHERITANCE (STRUCTURE-CLASS))|
905                    |(FAST-METHOD FINALIZE-INHERITANCE (STD-CLASS))|
906                    |(FAST-METHOD COMPUTE-DEFAULT-INITARGS (SLOT-CLASS))|
907                  |(FAST-METHOD CLASS-FINALIZED-P (PCL-CLASS))|                  |(FAST-METHOD CLASS-FINALIZED-P (PCL-CLASS))|
908                  |(FAST-METHOD MAKE-INSTANCE (CLASS))|                  |(FAST-METHOD COMPUTE-SLOTS (STD-CLASS))|
909                  |(FAST-METHOD ALLOCATE-INSTANCE (STRUCTURE-CLASS))|                  |(FAST-METHOD COMPUTE-SLOTS :AROUND (STD-CLASS))|
910                  |(FAST-METHOD ALLOCATE-INSTANCE (STANDARD-CLASS))|                  |(FAST-METHOD COMPUTE-SLOTS (STRUCTURE-CLASS))|
911                  |(FAST-METHOD RAW-INSTANCE-ALLOCATOR (STANDARD-CLASS))|                  |(FAST-METHOD COMPUTE-SLOTS :AROUND (STRUCTURE-CLASS))|
912                  |(FAST-METHOD SLOTS-FETCHER (STANDARD-CLASS))|                  |(FAST-METHOD CLASS-DIRECT-DEFAULT-INITARGS (SLOT-CLASS))|
913                  |(FAST-METHOD WRAPPER-FETCHER (STANDARD-CLASS))|                  |(FAST-METHOD CLASS-DEFAULT-INITARGS (SLOT-CLASS))|
914                  CLASS-PREDICATE-NAME                  CLASS-PREDICATE-NAME
915                  |PCL::STRUCTURE-OBJECT class predicate|                  |PCL::STRUCTURE-OBJECT class predicate|
916                  |PCL::STRUCTURE-SLOT-DEFINITION class predicate|                  |PCL::STRUCTURE-SLOT-DEFINITION class predicate|
# Line 937  Line 940 
940                  |(WRITER PREDICATE-NAME)| |(WRITER READERS)|                  |(WRITER PREDICATE-NAME)| |(WRITER READERS)|
941                  |(READER WRITER-FUNCTION)| |(READER INITFUNCTION)|                  |(READER WRITER-FUNCTION)| |(READER INITFUNCTION)|
942                  INITIALIZE-INTERNAL-SLOT-FUNCTIONS                  INITIALIZE-INTERNAL-SLOT-FUNCTIONS
943                  |SETF PCL SLOT-DEFINITION-TYPE|                  |SETF PCL SLOT-DEFINITION-TYPE| |(READER WRITERS)|
944                  |(WRITER CLASS-PRECEDENCE-LIST)| |(READER WRITERS)|                  |(WRITER CLASS-PRECEDENCE-LIST)|
945                  |(WRITER ACCESSOR-FLAGS)| |(READER INITFORM)|                  |(WRITER ACCESSOR-FLAGS)| |(READER INITFORM)|
946                  METHOD-COMBINATION-P |(WRITER LOCATION)|                  METHOD-COMBINATION-P |(WRITER LOCATION)|
947                  |(WRITER DOCUMENTATION)|                  |(WRITER DOCUMENTATION)|
# Line 978  Line 981 
981                  |SETF PCL SLOT-DEFINITION-ALLOCATION|                  |SETF PCL SLOT-DEFINITION-ALLOCATION|
982                  |SETF PCL SLOT-DEFINITION-INITFUNCTION|                  |SETF PCL SLOT-DEFINITION-INITFUNCTION|
983                  |(WRITER SLOT-NAME)| |(BOUNDP NAME)|                  |(WRITER SLOT-NAME)| |(BOUNDP NAME)|
984                  |(WRITER ALLOCATION)| |(READER FAST-FUNCTION)|                  |(READER FAST-FUNCTION)| |(WRITER ALLOCATION)|
985                  |(READER METHOD-CLASS)| |(SETF OBJECT-PLIST)|                  |(READER METHOD-CLASS)| |(SETF OBJECT-PLIST)|
986                  |(READER INTERNAL-WRITER-FUNCTION)|                  |(READER INTERNAL-WRITER-FUNCTION)|
987                  |(READER INTERNAL-READER-FUNCTION)|                  |(READER INTERNAL-READER-FUNCTION)|
988                  |(READER METHOD-COMBINATION)|                  |(READER METHOD-COMBINATION)|
989                  METHOD-COMBINATION-OPTIONS |(READER DIRECT-SLOTS)|                  METHOD-COMBINATION-OPTIONS |(READER DIRECT-SLOTS)|
990                  |(READER DIRECT-METHODS)|                  |(READER DIRECT-METHODS)|
991                  |SETF PCL SLOT-DEFINITION-READERS|                  |SETF PCL SLOT-DEFINITION-READERS| |(WRITER FUNCTION)|
992                  |(READER BOUNDP-FUNCTION)| |(WRITER FUNCTION)|                  |(WRITER GENERIC-FUNCTION)| |(READER BOUNDP-FUNCTION)|
993                  |(WRITER GENERIC-FUNCTION)|                  |SETF PCL DOCUMENTATION| |(READER DIRECT-SUBCLASSES)|
994                  |(READER DIRECT-SUBCLASSES)|                  |(READER DIRECT-SUPERCLASSES)| |(WRITER LAMBDA-LIST)|
995                  |(READER DIRECT-SUPERCLASSES)| |SETF PCL DOCUMENTATION|                  |LISP::LIST class predicate|
                 |(WRITER LAMBDA-LIST)| |LISP::LIST class predicate|  
996                  FUNCALLABLE-STANDARD-CLASS-P                  FUNCALLABLE-STANDARD-CLASS-P
997                  |(FAST-WRITER-METHOD SLOT-OBJECT METHOD)|                  |(FAST-WRITER-METHOD SLOT-OBJECT METHOD)|
998                  |(BOUNDP CLASS)| |(WRITER SLOT-DEFINITION)|                  |(BOUNDP CLASS)| |(WRITER SLOT-DEFINITION)|
# Line 1000  Line 1002 
1002                  |SETF PCL SLOT-VALUE-USING-CLASS|                  |SETF PCL SLOT-VALUE-USING-CLASS|
1003                  |(FAST-WRITER-METHOD SLOT-OBJECT DEFSTRUCT-ACCESSOR-SYMBOL)|                  |(FAST-WRITER-METHOD SLOT-OBJECT DEFSTRUCT-ACCESSOR-SYMBOL)|
1004                  |(FAST-WRITER-METHOD STRUCTURE-SLOT-DEFINITION DEFSTRUCT-ACCESSOR-SYMBOL)|                  |(FAST-WRITER-METHOD STRUCTURE-SLOT-DEFINITION DEFSTRUCT-ACCESSOR-SYMBOL)|
1005                  |(WRITER PROTOTYPE)| |(BOUNDP OBJECT)| |(BOUNDP TYPE)|                  |(WRITER PROTOTYPE)| |(BOUNDP TYPE)| |(BOUNDP OBJECT)|
1006                  CLASS-CAN-PRECEDE-LIST |SETF PCL CLASS-DIRECT-SLOTS|                  CLASS-CAN-PRECEDE-LIST |SETF PCL CLASS-DIRECT-SLOTS|
1007                  |SETF PCL CLASS-SLOTS| SLOT-ACCESSOR-FUNCTION                  |SETF PCL CLASS-SLOTS| SLOT-ACCESSOR-FUNCTION
1008                  |(BOUNDP PLIST)|                  |(BOUNDP PLIST)|
# Line 1015  Line 1017 
1017                  |(FAST-WRITER-METHOD SLOT-OBJECT ARG-INFO)|                  |(FAST-WRITER-METHOD SLOT-OBJECT ARG-INFO)|
1018                  |PCL::PLIST-MIXIN class predicate|                  |PCL::PLIST-MIXIN class predicate|
1019                  |(WRITER FAST-FUNCTION)| |(WRITER METHOD-CLASS)|                  |(WRITER FAST-FUNCTION)| |(WRITER METHOD-CLASS)|
1020                  |(FAST-WRITER-METHOD SLOT-OBJECT WRAPPER)|                  |(FAST-WRITER-METHOD SLOT-OBJECT WRAPPER)| GET-METHOD
1021                  |(WRITER INTERNAL-WRITER-FUNCTION)|                  |(WRITER INTERNAL-WRITER-FUNCTION)|
1022                  |(WRITER INTERNAL-READER-FUNCTION)|                  |(WRITER INTERNAL-READER-FUNCTION)|
1023                  |(WRITER METHOD-COMBINATION)| GET-METHOD                  |(WRITER METHOD-COMBINATION)| |(WRITER DIRECT-SLOTS)|
1024                  |(WRITER DIRECT-SLOTS)| |(WRITER DIRECT-METHODS)|                  |(WRITER DIRECT-METHODS)|
1025                  |(FAST-WRITER-METHOD SLOT-OBJECT INITARGS)|                  |(FAST-WRITER-METHOD SLOT-OBJECT INITARGS)|
1026                  |(FAST-WRITER-METHOD SLOT-DEFINITION INITARGS)|                  |(FAST-WRITER-METHOD SLOT-DEFINITION INITARGS)|
1027                  |(FAST-WRITER-METHOD SLOT-OBJECT OPERATOR)|                  |(FAST-WRITER-METHOD SLOT-OBJECT OPERATOR)|
# Line 1089  Line 1091 
1091                  |(FAST-READER-METHOD SLOT-DEFINITION READERS)|                  |(FAST-READER-METHOD SLOT-DEFINITION READERS)|
1092                  |(FAST-READER-METHOD SLOT-OBJECT SPECIALIZERS)|                  |(FAST-READER-METHOD SLOT-OBJECT SPECIALIZERS)|
1093                  |(FAST-READER-METHOD STANDARD-METHOD SPECIALIZERS)|                  |(FAST-READER-METHOD STANDARD-METHOD SPECIALIZERS)|
                 |(FAST-READER-METHOD SHORT-METHOD-COMBINATION IDENTITY-WITH-ONE-ARGUMENT)|  
                 |(FAST-READER-METHOD SLOT-OBJECT IDENTITY-WITH-ONE-ARGUMENT)|  
1094                  |(FAST-READER-METHOD SPECIALIZER TYPE)|                  |(FAST-READER-METHOD SPECIALIZER TYPE)|
1095                  |(FAST-READER-METHOD SLOT-OBJECT PROTOTYPE)|                  |(FAST-READER-METHOD SLOT-OBJECT PROTOTYPE)|
1096                  |(FAST-READER-METHOD PCL-CLASS PROTOTYPE)|                  |(FAST-READER-METHOD PCL-CLASS PROTOTYPE)|
1097                    |(FAST-READER-METHOD SLOT-DEFINITION TYPE)|
1098                    |(FAST-READER-METHOD SLOT-OBJECT TYPE)|
1099                    |(FAST-READER-METHOD STANDARD-METHOD-COMBINATION TYPE)|
1100                    |(FAST-READER-METHOD SHORT-METHOD-COMBINATION IDENTITY-WITH-ONE-ARGUMENT)|
1101                    |(FAST-READER-METHOD SLOT-OBJECT IDENTITY-WITH-ONE-ARGUMENT)|
1102                  |(FAST-READER-METHOD CLASS-EQ-SPECIALIZER OBJECT)|                  |(FAST-READER-METHOD CLASS-EQ-SPECIALIZER OBJECT)|
1103                  |(FAST-READER-METHOD CLASS-PROTOTYPE-SPECIALIZER OBJECT)|                  |(FAST-READER-METHOD CLASS-PROTOTYPE-SPECIALIZER OBJECT)|
1104                  |(FAST-READER-METHOD SLOT-OBJECT OBJECT)|                  |(FAST-READER-METHOD SLOT-OBJECT OBJECT)|
1105                  |(FAST-READER-METHOD EQL-SPECIALIZER OBJECT)|                  |(FAST-READER-METHOD EQL-SPECIALIZER OBJECT)|
                 |(FAST-READER-METHOD SLOT-DEFINITION TYPE)|  
                 |(FAST-READER-METHOD SLOT-OBJECT TYPE)|  
                 |(FAST-READER-METHOD STANDARD-METHOD-COMBINATION TYPE)|  
1106                  |(FAST-READER-METHOD SLOT-OBJECT DEFSTRUCT-FORM)|                  |(FAST-READER-METHOD SLOT-OBJECT DEFSTRUCT-FORM)|
1107                  |(FAST-READER-METHOD STRUCTURE-CLASS DEFSTRUCT-FORM)|                  |(FAST-READER-METHOD STRUCTURE-CLASS DEFSTRUCT-FORM)|
1108                  |(FAST-READER-METHOD SLOT-OBJECT INITFORM)|                  |(FAST-READER-METHOD SLOT-OBJECT INITFORM)|
# Line 1122  Line 1124 
1124                  |(FAST-READER-METHOD SLOT-CLASS SLOTS)|                  |(FAST-READER-METHOD SLOT-CLASS SLOTS)|
1125                  |(FAST-READER-METHOD SLOT-OBJECT DIRECT-SLOTS)|                  |(FAST-READER-METHOD SLOT-OBJECT DIRECT-SLOTS)|
1126                  |(FAST-READER-METHOD SLOT-CLASS DIRECT-SLOTS)|                  |(FAST-READER-METHOD SLOT-CLASS DIRECT-SLOTS)|
                 |(FAST-READER-METHOD SLOT-OBJECT FROM-DEFCLASS-P)|  
1127                  |(FAST-READER-METHOD SLOT-OBJECT METHODS)|                  |(FAST-READER-METHOD SLOT-OBJECT METHODS)|
1128                  |(FAST-READER-METHOD STANDARD-GENERIC-FUNCTION METHODS)|                  |(FAST-READER-METHOD STANDARD-GENERIC-FUNCTION METHODS)|
1129                  |(FAST-READER-METHOD SLOT-OBJECT OPTIONS)|                  |(FAST-READER-METHOD SLOT-OBJECT OPTIONS)|
1130                  |(FAST-READER-METHOD STANDARD-METHOD-COMBINATION OPTIONS)|                  |(FAST-READER-METHOD STANDARD-METHOD-COMBINATION OPTIONS)|
1131                    |(FAST-READER-METHOD SLOT-OBJECT FROM-DEFCLASS-P)|
1132                  |(FAST-READER-METHOD SLOT-OBJECT DIRECT-SUBCLASSES)|                  |(FAST-READER-METHOD SLOT-OBJECT DIRECT-SUBCLASSES)|
1133                  |(FAST-READER-METHOD CLASS DIRECT-SUBCLASSES)|                  |(FAST-READER-METHOD CLASS DIRECT-SUBCLASSES)|
1134                  |(FAST-READER-METHOD SLOT-OBJECT DIRECT-SUPERCLASSES)|                  |(FAST-READER-METHOD SLOT-OBJECT DIRECT-SUPERCLASSES)|
# Line 1164  Line 1166 
1166                  |(FAST-BOUNDP-METHOD SLOT-OBJECT READERS)|                  |(FAST-BOUNDP-METHOD SLOT-OBJECT READERS)|
1167                  |(FAST-BOUNDP-METHOD SLOT-OBJECT SPECIALIZERS)|                  |(FAST-BOUNDP-METHOD SLOT-OBJECT SPECIALIZERS)|
1168                  |(FAST-BOUNDP-METHOD SLOT-OBJECT PROTOTYPE)|                  |(FAST-BOUNDP-METHOD SLOT-OBJECT PROTOTYPE)|
                 |(FAST-BOUNDP-METHOD SLOT-OBJECT OBJECT)|  
1169                  |(FAST-BOUNDP-METHOD SLOT-OBJECT TYPE)|                  |(FAST-BOUNDP-METHOD SLOT-OBJECT TYPE)|
1170                    |(FAST-BOUNDP-METHOD SLOT-OBJECT OBJECT)|
1171                  |(FAST-BOUNDP-METHOD SLOT-OBJECT DEFSTRUCT-FORM)|                  |(FAST-BOUNDP-METHOD SLOT-OBJECT DEFSTRUCT-FORM)|
1172                  |(FAST-BOUNDP-METHOD SLOT-OBJECT INITFORM)|                  |(FAST-BOUNDP-METHOD SLOT-OBJECT INITFORM)|
1173                  |(SETF SLOT-VALUE-USING-CLASS)|                  |(SETF SLOT-VALUE-USING-CLASS)|
# Line 1191  Line 1193 
1193                  |(SETF SLOT-DEFINITION-TYPE)|                  |(SETF SLOT-DEFINITION-TYPE)|
1194                  |(SETF SLOT-DEFINITION-INITFORM)|                  |(SETF SLOT-DEFINITION-INITFORM)|
1195                  |(BOUNDP INITIALIZE-INFO)|                  |(BOUNDP INITIALIZE-INFO)|
1196                    |(FAST-BOUNDP-METHOD SLOT-OBJECT FROM-DEFCLASS-P)|
1197                  |(FAST-BOUNDP-METHOD SLOT-OBJECT DIRECT-METHODS)|                  |(FAST-BOUNDP-METHOD SLOT-OBJECT DIRECT-METHODS)|
1198                  |(FAST-BOUNDP-METHOD SLOT-OBJECT SLOTS)|                  |(FAST-BOUNDP-METHOD SLOT-OBJECT SLOTS)|
1199                  |(FAST-BOUNDP-METHOD SLOT-OBJECT DIRECT-SLOTS)|                  |(FAST-BOUNDP-METHOD SLOT-OBJECT DIRECT-SLOTS)|
                 |(FAST-BOUNDP-METHOD SLOT-OBJECT FROM-DEFCLASS-P)|  
1200                  |(FAST-BOUNDP-METHOD SLOT-OBJECT METHODS)|                  |(FAST-BOUNDP-METHOD SLOT-OBJECT METHODS)|
1201                  |(FAST-BOUNDP-METHOD SLOT-OBJECT OPTIONS)|                  |(FAST-BOUNDP-METHOD SLOT-OBJECT OPTIONS)|
1202                  |(FAST-BOUNDP-METHOD SLOT-OBJECT DIRECT-SUBCLASSES)|                  |(FAST-BOUNDP-METHOD SLOT-OBJECT DIRECT-SUBCLASSES)|
# Line 1204  Line 1206 
1206                  GENERIC-FUNCTION-P                  GENERIC-FUNCTION-P
1207                  |PCL::SLOT-DEFINITION class predicate|                  |PCL::SLOT-DEFINITION class predicate|
1208                  |LISP::NULL class predicate| |(READER NAME)|                  |LISP::NULL class predicate| |(READER NAME)|
1209                  |(READER CLASS)|                  |(READER CLASS)| |(FAST-METHOD SLOT-MISSING (T T T T))|
                 |(FAST-METHOD DESCRIBE-OBJECT (CLASS T))|  
                 |(FAST-METHOD DESCRIBE-OBJECT (STANDARD-GENERIC-FUNCTION T))|  
                 |(FAST-METHOD DESCRIBE-OBJECT (SLOT-OBJECT T))|  
                 |(FAST-METHOD DESCRIBE-OBJECT (T T))|  
                 |(FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION LONG-METHOD-COMBINATION T))|  
                 |(FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION SHORT-METHOD-COMBINATION T))|  
                 |(FAST-METHOD FIND-METHOD-COMBINATION (GENERIC-FUNCTION (EQL STANDARD) T))|  
                 |(FAST-METHOD UPDATE-GF-DFUN (STD-CLASS T))|  
                 |(FAST-METHOD COMPUTE-APPLICABLE-METHODS-USING-CLASSES (GENERIC-FUNCTION T))|  
                 |(FAST-METHOD COMPUTE-APPLICABLE-METHODS (GENERIC-FUNCTION T))|  
1210                  |(FAST-METHOD REMOVE-NAMED-METHOD (T T))|                  |(FAST-METHOD REMOVE-NAMED-METHOD (T T))|
                 |(FAST-METHOD SHARED-INITIALIZE :BEFORE (STANDARD-GENERIC-FUNCTION T))|  
                 |(FAST-METHOD PRINT-OBJECT (GENERIC-FUNCTION T))|  
                 |(FAST-METHOD SHARED-INITIALIZE :AFTER (STANDARD-ACCESSOR-METHOD T))|  
1211                  |(FAST-METHOD SHARED-INITIALIZE :AFTER (STANDARD-METHOD T))|                  |(FAST-METHOD SHARED-INITIALIZE :AFTER (STANDARD-METHOD T))|
1212                  |(FAST-METHOD SHARED-INITIALIZE :BEFORE (STANDARD-ACCESSOR-METHOD T))|                  |(FAST-METHOD SHARED-INITIALIZE :BEFORE (STANDARD-ACCESSOR-METHOD T))|
                 |(FAST-METHOD SHARED-INITIALIZE :BEFORE (STANDARD-METHOD T))|  
                 |(FAST-METHOD LEGAL-SPECIALIZER-P (STANDARD-METHOD T))|  
                 |(FAST-METHOD LEGAL-SPECIALIZERS-P (STANDARD-METHOD T))|  
                 |(FAST-METHOD LEGAL-SLOT-NAME-P (STANDARD-METHOD T))|  
                 |(FAST-METHOD LEGAL-QUALIFIER-P (STANDARD-METHOD T))|  
                 |(FAST-METHOD LEGAL-QUALIFIERS-P (STANDARD-METHOD T))|  
                 |(FAST-METHOD LEGAL-METHOD-FUNCTION-P (STANDARD-METHOD T))|  
                 |(FAST-METHOD LEGAL-LAMBDA-LIST-P (STANDARD-METHOD T))|  
                 |(FAST-METHOD LEGAL-DOCUMENTATION-P (STANDARD-METHOD T))|  
                 |(FAST-METHOD PRINT-OBJECT (STANDARD-ACCESSOR-METHOD T))|  
                 |(FAST-METHOD PRINT-OBJECT (STANDARD-METHOD T))|  
                 |(FAST-METHOD INFORM-TYPE-SYSTEM-ABOUT-CLASS (STRUCTURE-CLASS T))|  
1213                  |(FAST-METHOD SHARED-INITIALIZE :AFTER (STRUCTURE-SLOT-DEFINITION T))|                  |(FAST-METHOD SHARED-INITIALIZE :AFTER (STRUCTURE-SLOT-DEFINITION T))|
                 |(FAST-METHOD SHARED-INITIALIZE :AFTER (STANDARD-SLOT-DEFINITION T))|  
                 |(FAST-METHOD PRINT-OBJECT (STANDARD-METHOD-COMBINATION T))|  
                 |(FAST-METHOD PRINT-OBJECT (SLOT-DEFINITION T))|  
                 |(FAST-METHOD PRINT-OBJECT (CLASS T))|  
                 |(FAST-METHOD PRINT-OBJECT (T T))|  
                 |(FAST-METHOD MAKE-WRITER-METHOD-FUNCTION (FUNCALLABLE-STANDARD-CLASS T))|  
                 |(FAST-METHOD MAKE-READER-METHOD-FUNCTION (FUNCALLABLE-STANDARD-CLASS T))|  
                 |(FAST-METHOD MAP-DEPENDENTS (DEPENDENT-UPDATE-MIXIN T))|  
                 |(FAST-METHOD REMOVE-DEPENDENT (DEPENDENT-UPDATE-MIXIN T))|  
                 |(FAST-METHOD ADD-DEPENDENT (DEPENDENT-UPDATE-MIXIN T))|  
1214                  |(FAST-METHOD SHARED-INITIALIZE :BEFORE (BUILT-IN-CLASS T))|                  |(FAST-METHOD SHARED-INITIALIZE :BEFORE (BUILT-IN-CLASS T))|
                 |(FAST-METHOD COMPATIBLE-META-CLASS-CHANGE-P (T T))|  
                 |(FAST-METHOD INFORM-TYPE-SYSTEM-ABOUT-CLASS (STD-CLASS T))|  
                 |(FAST-METHOD MAKE-BOUNDP-METHOD-FUNCTION (SLOT-CLASS T))|  
                 |(FAST-METHOD MAKE-WRITER-METHOD-FUNCTION (SLOT-CLASS T))|  
                 |(FAST-METHOD MAKE-READER-METHOD-FUNCTION (SLOT-CLASS T))|  
                 |(FAST-METHOD REMOVE-BOUNDP-METHOD (SLOT-CLASS T))|  
                 |(FAST-METHOD REMOVE-WRITER-METHOD (SLOT-CLASS T))|  
                 |(FAST-METHOD REMOVE-READER-METHOD (SLOT-CLASS T))|  
                 |(FAST-METHOD ADD-BOUNDP-METHOD (SLOT-CLASS T T))|  
                 |(FAST-METHOD ADD-WRITER-METHOD (SLOT-CLASS T T))|  
1215                  |(FAST-METHOD WRITER-METHOD-CLASS (SLOT-CLASS T))|                  |(FAST-METHOD WRITER-METHOD-CLASS (SLOT-CLASS T))|
                 |(FAST-METHOD ADD-READER-METHOD (SLOT-CLASS T T))|  
1216                  |(FAST-METHOD READER-METHOD-CLASS (SLOT-CLASS T))|                  |(FAST-METHOD READER-METHOD-CLASS (SLOT-CLASS T))|
                 |(FAST-METHOD COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS :AROUND (STRUCTURE-CLASS T))|  
                 |(FAST-METHOD COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS (SLOT-CLASS T))|  
                 |(FAST-METHOD EFFECTIVE-SLOT-DEFINITION-CLASS (STRUCTURE-CLASS T))|  
                 |(FAST-METHOD EFFECTIVE-SLOT-DEFINITION-CLASS (STD-CLASS T))|  
                 |(FAST-METHOD COMPUTE-EFFECTIVE-SLOT-DEFINITION (SLOT-CLASS T))|  
                 |(FAST-METHOD DIRECT-SLOT-DEFINITION-CLASS (STD-CLASS T))|  
                 |(FAST-METHOD DIRECT-SLOT-DEFINITION-CLASS (STRUCTURE-CLASS T))|  
1217                  |(FAST-METHOD SHARED-INITIALIZE :AFTER (STRUCTURE-CLASS T))|                  |(FAST-METHOD SHARED-INITIALIZE :AFTER (STRUCTURE-CLASS T))|
                 |(FAST-METHOD SHARED-INITIALIZE :BEFORE (CLASS T))|  
                 |(FAST-METHOD SHARED-INITIALIZE :AFTER (STD-CLASS T))|  
                 |(FAST-METHOD SHARED-INITIALIZE :AFTER (EQL-SPECIALIZER T))|  
                 |(FAST-METHOD SHARED-INITIALIZE :AFTER (CLASS-EQ-SPECIALIZER T))|  
1218                  |(FAST-METHOD (SETF DOCUMENTATION) (T T))|                  |(FAST-METHOD (SETF DOCUMENTATION) (T T))|
1219                  |(FAST-METHOD SHARED-INITIALIZE :AFTER (DOCUMENTATION-MIXIN T))|                  |(FAST-METHOD SHARED-INITIALIZE :AFTER (DOCUMENTATION-MIXIN T))|
1220                    |(FAST-METHOD SHARED-INITIALIZE :AFTER (STD-CLASS T))|
1221                  |(FAST-METHOD COMPUTE-SLOT-ACCESSOR-INFO (EFFECTIVE-SLOT-DEFINITION T T))|                  |(FAST-METHOD COMPUTE-SLOT-ACCESSOR-INFO (EFFECTIVE-SLOT-DEFINITION T T))|
1222                  |(FAST-METHOD (SETF SLOT-ACCESSOR-STD-P) (T EFFECTIVE-SLOT-DEFINITION T))|                  |(FAST-METHOD (SETF SLOT-ACCESSOR-STD-P) (T EFFECTIVE-SLOT-DEFINITION T))|
1223                  |(FAST-METHOD SLOT-ACCESSOR-STD-P (EFFECTIVE-SLOT-DEFINITION T))|                  |(FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION SHORT-METHOD-COMBINATION T))|
1224                  |(FAST-METHOD (SETF SLOT-ACCESSOR-FUNCTION) (T EFFECTIVE-SLOT-DEFINITION T))|                  |(FAST-METHOD FIND-METHOD-COMBINATION (GENERIC-FUNCTION (EQL STANDARD) T))|
                 |(FAST-METHOD SLOT-ACCESSOR-FUNCTION (EFFECTIVE-SLOT-DEFINITION T))|  
                 |(FAST-METHOD SHARED-INITIALIZE (SLOT-OBJECT T))|  
                 |(FAST-METHOD UPDATE-INSTANCE-FOR-REDEFINED-CLASS (STANDARD-OBJECT T T T))|  
                 |(FAST-METHOD DEFAULT-INITARGS (SLOT-CLASS T))|  
1225                  |(FAST-METHOD SLOT-UNBOUND (T T T))|                  |(FAST-METHOD SLOT-UNBOUND (T T T))|
1226                  |(FAST-METHOD SLOT-MISSING (T T T T))|                  |(FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION LONG-METHOD-COMBINATION T))|
1227                    |(FAST-METHOD SHARED-INITIALIZE (SLOT-OBJECT T))|
1228                    |(FAST-METHOD (SETF SLOT-ACCESSOR-FUNCTION) (T EFFECTIVE-SLOT-DEFINITION T))|
1229                    |(FAST-METHOD SHARED-INITIALIZE :AFTER (CLASS-EQ-SPECIALIZER T))|
1230                    |(FAST-METHOD SHARED-INITIALIZE :AFTER (EQL-SPECIALIZER T))|
1231                    |(FAST-METHOD SHARED-INITIALIZE :BEFORE (CLASS T))|
1232                    |(FAST-METHOD ADD-READER-METHOD (SLOT-CLASS T T))|
1233                    |(FAST-METHOD ADD-WRITER-METHOD (SLOT-CLASS T T))|
1234                    |(FAST-METHOD ADD-BOUNDP-METHOD (SLOT-CLASS T T))|
1235                  |(FAST-METHOD (SETF CLASS-SLOT-VALUE) (T STD-CLASS T))|                  |(FAST-METHOD (SETF CLASS-SLOT-VALUE) (T STD-CLASS T))|
1236                    |(FAST-METHOD SHARED-INITIALIZE :AFTER (STANDARD-SLOT-DEFINITION T))|
1237                    |(FAST-METHOD SHARED-INITIALIZE :BEFORE (STANDARD-METHOD T))|
1238                    |(FAST-METHOD SHARED-INITIALIZE :AFTER (STANDARD-ACCESSOR-METHOD T))|
1239                    |(FAST-METHOD SHARED-INITIALIZE :BEFORE (STANDARD-GENERIC-FUNCTION T))|
1240                    |(FAST-METHOD DEFAULT-INITARGS (SLOT-CLASS T))|
1241                    |(FAST-METHOD DESCRIBE-OBJECT (T T))|
1242                    |(FAST-METHOD DESCRIBE-OBJECT (SLOT-OBJECT T))|
1243                    |(FAST-METHOD DESCRIBE-OBJECT (STANDARD-GENERIC-FUNCTION T))|
1244                    |(FAST-METHOD DESCRIBE-OBJECT (CLASS T))|
1245                    |(FAST-METHOD COMPUTE-APPLICABLE-METHODS-USING-CLASSES (GENERIC-FUNCTION T))|
1246                    |(FAST-METHOD SLOT-ACCESSOR-FUNCTION (EFFECTIVE-SLOT-DEFINITION T))|
1247                    |(FAST-METHOD COMPUTE-EFFECTIVE-SLOT-DEFINITION (SLOT-CLASS T))|
1248                  |(FAST-METHOD CLASS-SLOT-VALUE (STD-CLASS T))|                  |(FAST-METHOD CLASS-SLOT-VALUE (STD-CLASS T))|
1249                  LEGAL-SLOT-NAME-P |(READER OBJECT)| |(READER TYPE)|                  |(FAST-METHOD LEGAL-QUALIFIERS-P (STANDARD-METHOD T))|
1250                    |(FAST-METHOD LEGAL-SPECIALIZERS-P (STANDARD-METHOD T))|
1251                    |(FAST-METHOD UPDATE-INSTANCE-FOR-REDEFINED-CLASS (STANDARD-OBJECT T T T))|
1252                    |(FAST-METHOD MAKE-READER-METHOD-FUNCTION (FUNCALLABLE-STANDARD-CLASS T))|
1253                    |(FAST-METHOD MAKE-WRITER-METHOD-FUNCTION (FUNCALLABLE-STANDARD-CLASS T))|
1254                    |(FAST-METHOD UPDATE-GF-DFUN (STD-CLASS T))|
1255                    |(FAST-METHOD SLOT-ACCESSOR-STD-P (EFFECTIVE-SLOT-DEFINITION T))|
1256                    |(FAST-METHOD DIRECT-SLOT-DEFINITION-CLASS (STRUCTURE-CLASS T))|
1257                    |(FAST-METHOD DIRECT-SLOT-DEFINITION-CLASS (STD-CLASS T))|
1258                    |(FAST-METHOD EFFECTIVE-SLOT-DEFINITION-CLASS (STD-CLASS T))|
1259                    |(FAST-METHOD EFFECTIVE-SLOT-DEFINITION-CLASS (STRUCTURE-CLASS T))|
1260                    |(FAST-METHOD COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS (SLOT-CLASS T))|
1261                    |(FAST-METHOD COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS :AROUND (STRUCTURE-CLASS T))|
1262                    |(FAST-METHOD REMOVE-READER-METHOD (SLOT-CLASS T))|
1263                    |(FAST-METHOD REMOVE-WRITER-METHOD (SLOT-CLASS T))|
1264                    |(FAST-METHOD REMOVE-BOUNDP-METHOD (SLOT-CLASS T))|
1265                    |(FAST-METHOD MAKE-READER-METHOD-FUNCTION (SLOT-CLASS T))|
1266                    |(FAST-METHOD MAKE-WRITER-METHOD-FUNCTION (SLOT-CLASS T))|
1267                    |(FAST-METHOD MAKE-BOUNDP-METHOD-FUNCTION (SLOT-CLASS T))|
1268                    |(FAST-METHOD INFORM-TYPE-SYSTEM-ABOUT-CLASS (STD-CLASS T))|
1269                    |(FAST-METHOD COMPATIBLE-META-CLASS-CHANGE-P (T T))|
1270                    |(FAST-METHOD ADD-DEPENDENT (DEPENDENT-UPDATE-MIXIN T))|
1271                    |(FAST-METHOD REMOVE-DEPENDENT (DEPENDENT-UPDATE-MIXIN T))|
1272                    |(FAST-METHOD MAP-DEPENDENTS (DEPENDENT-UPDATE-MIXIN T))|
1273                    |(FAST-METHOD PRINT-OBJECT (T T))|
1274                    |(FAST-METHOD PRINT-OBJECT (CLASS T))|
1275                    |(FAST-METHOD PRINT-OBJECT (SLOT-DEFINITION T))|
1276                    |(FAST-METHOD PRINT-OBJECT (STANDARD-METHOD-COMBINATION T))|
1277                    |(FAST-METHOD INFORM-TYPE-SYSTEM-ABOUT-CLASS (STRUCTURE-CLASS T))|
1278                    |(FAST-METHOD PRINT-OBJECT (STANDARD-METHOD T))|
1279                    |(FAST-METHOD PRINT-OBJECT (STANDARD-ACCESSOR-METHOD T))|
1280                    |(FAST-METHOD LEGAL-DOCUMENTATION-P (STANDARD-METHOD T))|
1281                    |(FAST-METHOD LEGAL-LAMBDA-LIST-P (STANDARD-METHOD T))|
1282                    |(FAST-METHOD LEGAL-METHOD-FUNCTION-P (STANDARD-METHOD T))|
1283                    |(FAST-METHOD LEGAL-QUALIFIER-P (STANDARD-METHOD T))|
1284                    |(FAST-METHOD LEGAL-SLOT-NAME-P (STANDARD-METHOD T))|
1285                    |(FAST-METHOD LEGAL-SPECIALIZER-P (STANDARD-METHOD T))|
1286                    |(FAST-METHOD PRINT-OBJECT (GENERIC-FUNCTION T))|
1287                    |(FAST-METHOD COMPUTE-APPLICABLE-METHODS (GENERIC-FUNCTION T))|
1288                    LEGAL-SLOT-NAME-P |(READER TYPE)| |(READER OBJECT)|
1289                  CLASS-WRAPPER |(READER PLIST)|                  CLASS-WRAPPER |(READER PLIST)|
                 |(FAST-METHOD CLASS-PREDICATE-NAME (T))|  
                 |(FAST-METHOD DOCUMENTATION (T))|  
1290                  |(FAST-METHOD NO-APPLICABLE-METHOD (T))|                  |(FAST-METHOD NO-APPLICABLE-METHOD (T))|
1291                    |(FAST-METHOD DOCUMENTATION (T))|
1292                    |(FAST-METHOD CLASS-PREDICATE-NAME (T))|
1293                  |(READER SLOTS)| |(WRITER NAME)| DEFINITION-SOURCE                  |(READER SLOTS)| |(WRITER NAME)| DEFINITION-SOURCE
1294                  |PCL::SLOT-OBJECT class predicate| DEFAULT-INITARGS                  |PCL::SLOT-OBJECT class predicate| DEFAULT-INITARGS
1295                  |(WRITER CLASS)| CLASS-SLOT-VALUE |(WRITER OBJECT)|                  |(WRITER CLASS)| CLASS-SLOT-VALUE |(WRITER TYPE)|
1296                  |(WRITER TYPE)|                  |(WRITER OBJECT)|
1297                  |(FAST-METHOD ENSURE-CLASS-USING-CLASS (T NULL))|                  |(FAST-METHOD ENSURE-CLASS-USING-CLASS (T NULL))|
1298                  |(WRITER PLIST)| |(WRITER SLOTS)|                  |(WRITER PLIST)| |(WRITER SLOTS)|
1299                  |PCL::DOCUMENTATION-MIXIN class predicate|                  |PCL::DOCUMENTATION-MIXIN class predicate|
# Line 1339  Line 1340 
1340                  METHOD-COMBINATION-DOCUMENTATION                  METHOD-COMBINATION-DOCUMENTATION
1341                  |SETF PCL SLOT-DEFINITION-INITARGS|                  |SETF PCL SLOT-DEFINITION-INITARGS|
1342                  REMOVE-BOUNDP-METHOD ADD-NAMED-METHOD                  REMOVE-BOUNDP-METHOD ADD-NAMED-METHOD
1343                  |LISP::CONS class predicate| |(WRITER INITARGS)|                  |LISP::CONS class predicate|
1344                  |SETF PCL CLASS-DEFSTRUCT-CONSTRUCTOR|                  |SETF PCL CLASS-DEFSTRUCT-CONSTRUCTOR|
1345                  |(BOUNDP METHOD)|                  |(WRITER INITARGS)| |(BOUNDP METHOD)|
1346                  |(FAST-WRITER-METHOD SLOT-OBJECT PREDICATE-NAME)|                  |(FAST-WRITER-METHOD SLOT-OBJECT PREDICATE-NAME)|
1347                  |(FAST-WRITER-METHOD CLASS NAME)|                  |(FAST-WRITER-METHOD CLASS NAME)|
1348                  |(FAST-WRITER-METHOD SLOT-DEFINITION NAME)|                  |(FAST-WRITER-METHOD SLOT-DEFINITION NAME)|
# Line 1387  Line 1388 
1388                  |(FAST-WRITER-METHOD SLOT-OBJECT READERS)|                  |(FAST-WRITER-METHOD SLOT-OBJECT READERS)|
1389                  |(FAST-WRITER-METHOD SLOT-DEFINITION READERS)|                  |(FAST-WRITER-METHOD SLOT-DEFINITION READERS)|
1390                  |(FAST-WRITER-METHOD SLOT-OBJECT SPECIALIZERS)|                  |(FAST-WRITER-METHOD SLOT-OBJECT SPECIALIZERS)|
                 |(FAST-WRITER-METHOD SLOT-OBJECT IDENTITY-WITH-ONE-ARGUMENT)|  
1391                  |(FAST-WRITER-METHOD SLOT-OBJECT PROTOTYPE)|                  |(FAST-WRITER-METHOD SLOT-OBJECT PROTOTYPE)|
                 |(FAST-WRITER-METHOD SLOT-OBJECT OBJECT)|  
1392                  |(FAST-WRITER-METHOD SLOT-DEFINITION TYPE)|                  |(FAST-WRITER-METHOD SLOT-DEFINITION TYPE)|
1393                  |(FAST-WRITER-METHOD SLOT-OBJECT TYPE)|                  |(FAST-WRITER-METHOD SLOT-OBJECT TYPE)|
1394                    |(FAST-WRITER-METHOD SLOT-OBJECT IDENTITY-WITH-ONE-ARGUMENT)|
1395                    |(FAST-WRITER-METHOD SLOT-OBJECT OBJECT)|
1396                  REMOVE-NAMED-METHOD                  REMOVE-NAMED-METHOD
1397                  |(FAST-WRITER-METHOD SLOT-OBJECT DEFSTRUCT-FORM)|                  |(FAST-WRITER-METHOD SLOT-OBJECT DEFSTRUCT-FORM)|
1398                  |(FAST-WRITER-METHOD STRUCTURE-CLASS DEFSTRUCT-FORM)|                  |(FAST-WRITER-METHOD STRUCTURE-CLASS DEFSTRUCT-FORM)|

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26