/[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.6.2 by camm, Tue Sep 23 19:32:31 2003 UTC revision 1.1.6.3 by camm, Wed Sep 24 15:48:47 2003 UTC
# Line 1  Line 1 
1    
2  (IN-PACKAGE "PCL")  (IN-PACKAGE "PCL")
 (PROCLAIM '(FTYPE (FUNCTION (FIXNUM) T) POWER-OF-TWO-CEILING))  
 (PROCLAIM  
     '(FTYPE (FUNCTION (T) FUNCTION) CACHE-LIMIT-FN METHOD-CALL-FUNCTION  
             FAST-METHOD-CALL-FUNCTION))  
 (PROCLAIM '(FTYPE (FUNCTION (T) FIELD-TYPE) CACHE-FIELD))  
3  (PROCLAIM  (PROCLAIM
4      '(FTYPE (FUNCTION (T) FIXNUM) ONE-INDEX-LIMIT-FN      '(FTYPE (FUNCTION (T) FIXNUM) ONE-INDEX-LIMIT-FN
5              N-N-ACCESSORS-LIMIT-FN CHECKING-LIMIT-FN PV-CACHE-LIMIT-FN              N-N-ACCESSORS-LIMIT-FN CHECKING-LIMIT-FN PV-CACHE-LIMIT-FN
6              ARG-INFO-NUMBER-REQUIRED DEFAULT-LIMIT-FN CACHE-COUNT              ARG-INFO-NUMBER-REQUIRED DEFAULT-LIMIT-FN CACHE-COUNT
7              CACHING-LIMIT-FN PV-TABLE-PV-SIZE EARLY-CLASS-SIZE              CACHING-LIMIT-FN PV-TABLE-PV-SIZE EARLY-CLASS-SIZE
8              CPD-COUNT FAST-INSTANCE-BOUNDP-INDEX))              CPD-COUNT FAST-INSTANCE-BOUNDP-INDEX))
9    (PROCLAIM '(FTYPE (FUNCTION (T) FIELD-TYPE) CACHE-FIELD))
10    (PROCLAIM
11        '(FTYPE (FUNCTION (T) FUNCTION) CACHE-LIMIT-FN METHOD-CALL-FUNCTION
12                FAST-METHOD-CALL-FUNCTION))
13    (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 512)) CACHE-LINE-SIZE))  
26  (PROCLAIM '(FTYPE (FUNCTION (T) (INTEGER 1 256)) CACHE-NKEYS))  (PROCLAIM '(FTYPE (FUNCTION (T) (INTEGER 1 256)) CACHE-NKEYS))
27    (PROCLAIM '(FTYPE (FUNCTION (T) (INTEGER 1 512)) CACHE-LINE-SIZE))
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 T) *)      '(FTYPE (FUNCTION (T T T T) *)
31                |(FAST-METHOD MAKE-INSTANCE (SYMBOL))|
32                |(FAST-METHOD DEFAULT-INITARGS (SLOT-CLASS T))|
33                |(FAST-METHOD INITIALIZE-INSTANCE (SLOT-OBJECT))|
34              |(FAST-METHOD DESCRIBE-OBJECT (T T))|              |(FAST-METHOD DESCRIBE-OBJECT (T T))|
35              |(FAST-METHOD DESCRIBE-OBJECT (SLOT-OBJECT T))|              |(FAST-METHOD DESCRIBE-OBJECT (SLOT-OBJECT T))|
36              |(FAST-METHOD SLOTS-TO-INSPECT (SLOT-CLASS SLOT-OBJECT))|              |(FAST-METHOD SLOTS-TO-INSPECT (SLOT-CLASS SLOT-OBJECT))|
# Line 54  Line 57 
57              |(FAST-METHOD CLASS-SLOT-VALUE (STD-CLASS T))|              |(FAST-METHOD CLASS-SLOT-VALUE (STD-CLASS T))|
58              |(FAST-METHOD LEGAL-QUALIFIERS-P (STANDARD-METHOD T))|              |(FAST-METHOD LEGAL-QUALIFIERS-P (STANDARD-METHOD T))|
59              |(FAST-METHOD LEGAL-SPECIALIZERS-P (STANDARD-METHOD T))|              |(FAST-METHOD LEGAL-SPECIALIZERS-P (STANDARD-METHOD T))|
60              |(FAST-METHOD ALLOCATE-INSTANCE (STRUCTURE-CLASS))|              |(FAST-METHOD ALLOCATE-INSTANCE (STRUCTURE-CLASS))|))
             |(FAST-METHOD MAKE-INSTANCE (SYMBOL))|  
             |(FAST-METHOD DEFAULT-INITARGS (SLOT-CLASS T))|  
             |(FAST-METHOD INITIALIZE-INSTANCE (SLOT-OBJECT))|))  
61  (PROCLAIM  (PROCLAIM
62      '(FTYPE (FUNCTION (T T *) *) LOAD-DEFGENERIC TYPES-FROM-ARGUMENTS      '(FTYPE (FUNCTION (T T *) *) LOAD-DEFGENERIC TYPES-FROM-ARGUMENTS
63              MAKE-DEFAULT-INITARGS-FORM-LIST MAKE-FINAL-ACCESSOR-DFUN              MAKE-DEFAULT-INITARGS-FORM-LIST MAKE-FINAL-ACCESSOR-DFUN
# Line 68  Line 68 
68              GET-EFFECTIVE-METHOD-FUNCTION MAKE-N-N-ACCESSOR-DFUN              GET-EFFECTIVE-METHOD-FUNCTION MAKE-N-N-ACCESSOR-DFUN
69              MAKE-CHECKING-DFUN NESTED-WALK-FORM))              MAKE-CHECKING-DFUN NESTED-WALK-FORM))
70  (PROCLAIM  (PROCLAIM
71      '(FTYPE (FUNCTION (T T T T T T T) *)      '(FTYPE (FUNCTION (T T T T T T) *) MEMF-CODE-CONVERTER
72              |(FAST-METHOD UPDATE-INSTANCE-FOR-REDEFINED-CLASS (STANDARD-OBJECT T T T))|              CACHE-MISS-VALUES-INTERNAL
73              ITERATE::ITERATE-TRANSFORM-BODY))              GENERATE-DISCRIMINATION-NET-INTERNAL
74                MAKE-LONG-METHOD-COMBINATION-FUNCTION
75                DO-SHORT-METHOD-COMBINATION
76                |(FAST-METHOD (SETF SLOT-VALUE-USING-CLASS) (T STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))|))
77    (PROCLAIM '(FTYPE (FUNCTION (T T T T T T *) *) REAL-MAKE-A-METHOD))
78  (PROCLAIM  (PROCLAIM
79      '(FTYPE (FUNCTION (T T T T T) *)      '(FTYPE (FUNCTION (T T T *) *) MAKE-ONE-INDEX-ACCESSOR-DFUN
80              |(FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION LONG-METHOD-COMBINATION T))|              WALKER::WALK-DECLARATIONS GET-SECONDARY-DISPATCH-FUNCTION))
81              |(FAST-METHOD UPDATE-INSTANCE-FOR-DIFFERENT-CLASS (STANDARD-OBJECT STANDARD-OBJECT))|  (PROCLAIM
82              |(FAST-METHOD SHARED-INITIALIZE (SLOT-OBJECT T))|      '(FTYPE (FUNCTION (T T T T *) *)
83              COMPUTE-DISCRIMINATING-FUNCTION-ARGLIST-INFO-INTERNAL              MAKE-EFFECTIVE-METHOD-FUNCTION-SIMPLE1
84              ADD-METHOD-DECLARATIONS WALK-METHOD-LAMBDA              ITERATE::RENAME-LET-BINDINGS))
             MAKE-TWO-CLASS-ACCESSOR-DFUN  
             |(FAST-METHOD (SETF SLOT-ACCESSOR-FUNCTION) (T EFFECTIVE-SLOT-DEFINITION T))|  
             |(FAST-METHOD SHARED-INITIALIZE :AFTER (CLASS-EQ-SPECIALIZER T))|  
             |(FAST-METHOD SHARED-INITIALIZE :AFTER (EQL-SPECIALIZER T))|  
             |(FAST-METHOD SHARED-INITIALIZE :BEFORE (CLASS T))|  
             |(FAST-METHOD (SETF DOCUMENTATION) (T STANDARD-SLOT-DEFINITION))|  
             |(FAST-METHOD ADD-READER-METHOD (SLOT-CLASS T T))|  
             |(FAST-METHOD ADD-WRITER-METHOD (SLOT-CLASS T T))|  
             |(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))|))  
85  (PROCLAIM  (PROCLAIM
86      '(FTYPE (FUNCTION (T T T) *) EMIT-ONE-OR-N-INDEX-READER/WRITER      '(FTYPE (FUNCTION (T T T) *) EMIT-ONE-OR-N-INDEX-READER/WRITER
87              GENERATING-LISP EMIT-READER/WRITER-FUNCTION              GENERATING-LISP EMIT-READER/WRITER-FUNCTION
# Line 127  Line 115 
115              OPTIMIZE-SLOT-VALUE-BY-CLASS-P ACCESSOR-VALUES1              OPTIMIZE-SLOT-VALUE-BY-CLASS-P ACCESSOR-VALUES1
116              EMIT-READER/WRITER))              EMIT-READER/WRITER))
117  (PROCLAIM  (PROCLAIM
118      '(FTYPE (FUNCTION (T T T T *) *)      '(FTYPE (FUNCTION (T T T T T) *)
119              MAKE-EFFECTIVE-METHOD-FUNCTION-SIMPLE1              |(FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION LONG-METHOD-COMBINATION T))|
120              ITERATE::RENAME-LET-BINDINGS))              |(FAST-METHOD UPDATE-INSTANCE-FOR-DIFFERENT-CLASS (STANDARD-OBJECT STANDARD-OBJECT))|
121  (PROCLAIM              |(FAST-METHOD SHARED-INITIALIZE (SLOT-OBJECT T))|
122      '(FTYPE (FUNCTION (T T T *) *) MAKE-ONE-INDEX-ACCESSOR-DFUN              COMPUTE-DISCRIMINATING-FUNCTION-ARGLIST-INFO-INTERNAL
123              WALKER::WALK-DECLARATIONS GET-SECONDARY-DISPATCH-FUNCTION))              ADD-METHOD-DECLARATIONS WALK-METHOD-LAMBDA
124  (PROCLAIM '(FTYPE (FUNCTION (T T T T T T *) *) REAL-MAKE-A-METHOD))              MAKE-TWO-CLASS-ACCESSOR-DFUN
125                |(FAST-METHOD (SETF SLOT-ACCESSOR-FUNCTION) (T EFFECTIVE-SLOT-DEFINITION T))|
126                |(FAST-METHOD SHARED-INITIALIZE :AFTER (CLASS-EQ-SPECIALIZER T))|
127                |(FAST-METHOD SHARED-INITIALIZE :AFTER (EQL-SPECIALIZER T))|
128                |(FAST-METHOD SHARED-INITIALIZE :BEFORE (CLASS T))|
129                |(FAST-METHOD (SETF DOCUMENTATION) (T STANDARD-SLOT-DEFINITION))|
130                |(FAST-METHOD ADD-READER-METHOD (SLOT-CLASS T T))|
131                |(FAST-METHOD ADD-WRITER-METHOD (SLOT-CLASS T T))|
132                |(FAST-METHOD ADD-BOUNDP-METHOD (SLOT-CLASS T T))|
133                |(FAST-METHOD (SETF CLASS-SLOT-VALUE) (T STD-CLASS T))|
134                |(FAST-METHOD SLOT-VALUE-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))|
135                |(FAST-METHOD SLOT-VALUE-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))|
136                |(FAST-METHOD SHARED-INITIALIZE :AFTER (STANDARD-SLOT-DEFINITION T))|
137                |(FAST-METHOD SHARED-INITIALIZE :BEFORE (STANDARD-METHOD T))|
138                |(FAST-METHOD SHARED-INITIALIZE :AFTER (STANDARD-ACCESSOR-METHOD T))|
139                |(FAST-METHOD SHARED-INITIALIZE :BEFORE (STANDARD-GENERIC-FUNCTION T))|))
140  (PROCLAIM  (PROCLAIM
141      '(FTYPE (FUNCTION (T T T T T T) *) MEMF-CODE-CONVERTER      '(FTYPE (FUNCTION (T T T T T T T) *)
142              CACHE-MISS-VALUES-INTERNAL              |(FAST-METHOD UPDATE-INSTANCE-FOR-REDEFINED-CLASS (STANDARD-OBJECT T T T))|
143              GENERATE-DISCRIMINATION-NET-INTERNAL              ITERATE::ITERATE-TRANSFORM-BODY))
             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))|))  
144  (PROCLAIM  (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) NOTE-PV-TABLE-REFERENCE      '(FTYPE (FUNCTION (T T T) T)
150                |(FAST-METHOD WRAPPER-FETCHER (STANDARD-CLASS))|
151                WALKER::WALK-MULTIPLE-VALUE-BIND
152                |(FAST-METHOD CLASS-DEFAULT-INITARGS (BUILT-IN-CLASS))|
153                WALKER::WALK-SETQ
154                |(FAST-METHOD MAKE-INSTANCES-OBSOLETE (STD-CLASS))|
155                |(FAST-METHOD SLOTS-FETCHER (STANDARD-CLASS))|
156                STANDARD-COMPUTE-EFFECTIVE-METHOD
157                WALKER::WALK-SYMBOL-MACROLET PRINT-CACHE
158                MAKE-OPTIMIZED-STD-SLOT-VALUE-USING-CLASS-METHOD-FUNCTION
159                |(FAST-METHOD RAW-INSTANCE-ALLOCATOR (STANDARD-CLASS))|
160                MAKE-OPTIMIZED-STD-SETF-SLOT-VALUE-USING-CLASS-METHOD-FUNCTION
161                EMIT-SLOT-READ-FORM WALKER::WALK-TAGBODY
162                MAKE-OPTIMIZED-STD-SLOT-BOUNDP-USING-CLASS-METHOD-FUNCTION
163                WALKER::RECONS EMIT-BOUNDP-CHECK
164                ITERATE::OPTIMIZE-GATHERING-FORM WALKER::WALK-DO
165                WALKER::WALK-MULTIPLE-VALUE-SETQ WALKER::WALK-DO*
166                |(FAST-METHOD CLASS-CONSTRUCTORS (SLOT-CLASS))|
167                WALKER::WALK-PROG
168                |(FAST-METHOD CLASS-SLOT-CELLS (STD-CLASS))|
169                WALKER::WALK-NAMED-LAMBDA
170                |(FAST-METHOD SPECIALIZER-CLASS (CLASS))|
171                WALKER::WALK-PROG*
172                |(FAST-METHOD SPECIALIZER-CLASS (EQL-SPECIALIZER))|
173                EXPAND-DEFGENERIC COMPUTE-EFFECTIVE-METHOD
174                NOTE-PV-TABLE-REFERENCE
175              |(FAST-METHOD ACCESSOR-METHOD-CLASS (STANDARD-ACCESSOR-METHOD))|              |(FAST-METHOD ACCESSOR-METHOD-CLASS (STANDARD-ACCESSOR-METHOD))|
176              |(FAST-METHOD ACCESSOR-METHOD-CLASS (STANDARD-WRITER-METHOD))|              |(FAST-METHOD ACCESSOR-METHOD-CLASS (STANDARD-WRITER-METHOD))|
177              |(FAST-METHOD WRAPPER-FETCHER (FUNCALLABLE-STANDARD-CLASS))|              |(FAST-METHOD WRAPPER-FETCHER (FUNCALLABLE-STANDARD-CLASS))|
# Line 166  Line 191 
191              WRAP-METHOD-GROUP-SPECIFIER-BINDINGS              WRAP-METHOD-GROUP-SPECIFIER-BINDINGS
192              WALKER::WALK-COMPILER-LET MAKE-TOP-LEVEL-FORM              WALKER::WALK-COMPILER-LET MAKE-TOP-LEVEL-FORM
193              OPTIMIZE-SLOT-BOUNDP INVALIDATE-WRAPPER              OPTIMIZE-SLOT-BOUNDP INVALIDATE-WRAPPER
             COMPUTE-EFFECTIVE-METHOD  
194              |(FAST-METHOD GENERIC-FUNCTION-PRETTY-ARGLIST (STANDARD-GENERIC-FUNCTION))|              |(FAST-METHOD GENERIC-FUNCTION-PRETTY-ARGLIST (STANDARD-GENERIC-FUNCTION))|
195              |(FAST-METHOD SPECIALIZER-METHOD-TABLE (EQL-SPECIALIZER))|              |(FAST-METHOD SPECIALIZER-METHOD-TABLE (EQL-SPECIALIZER))|
196              |(FAST-METHOD SPECIALIZER-METHOD-TABLE (CLASS-EQ-SPECIALIZER))|              |(FAST-METHOD SPECIALIZER-METHOD-TABLE (CLASS-EQ-SPECIALIZER))|
# Line 182  Line 206 
206              |(FAST-METHOD COMPUTE-SLOTS (STD-CLASS))|              |(FAST-METHOD COMPUTE-SLOTS (STD-CLASS))|
207              |(FAST-METHOD COMPUTE-SLOTS :AROUND (STD-CLASS))|              |(FAST-METHOD COMPUTE-SLOTS :AROUND (STD-CLASS))|
208              |(FAST-METHOD COMPUTE-SLOTS (STRUCTURE-CLASS))|              |(FAST-METHOD COMPUTE-SLOTS (STRUCTURE-CLASS))|
209                |(FAST-METHOD SPECIALIZER-DIRECT-METHODS (CLASS))|
210              |(FAST-METHOD COMPUTE-SLOTS :AROUND (STRUCTURE-CLASS))|              |(FAST-METHOD COMPUTE-SLOTS :AROUND (STRUCTURE-CLASS))|
211              |(FAST-METHOD CLASS-DIRECT-DEFAULT-INITARGS (SLOT-CLASS))|              |(FAST-METHOD CLASS-DIRECT-DEFAULT-INITARGS (SLOT-CLASS))|
212                EMIT-GREATER-THAN-1-DLAP
213                |(FAST-METHOD SPECIALIZER-DIRECT-GENERIC-FUNCTIONS (CLASS))|
214              |(FAST-METHOD CLASS-DEFAULT-INITARGS (SLOT-CLASS))|              |(FAST-METHOD CLASS-DEFAULT-INITARGS (SLOT-CLASS))|
215              ITERATE::SIMPLE-EXPAND-GATHERING-FORM              EMIT-1-T-DLAP ITERATE::SIMPLE-EXPAND-GATHERING-FORM
216                MAKE-METHOD-INITARGS-FORM-INTERNAL
217              ITERATE::RENAME-AND-CAPTURE-VARIABLES              ITERATE::RENAME-AND-CAPTURE-VARIABLES
218              ITERATE::VARIABLE-SAME-P GET-FUNCTION-GENERATOR              ITERATE::VARIABLE-SAME-P ENTRY-IN-CACHE-P CONVERT-TABLE
219              GET-NEW-FUNCTION-GENERATOR TRACE-METHOD-INTERNAL              GET-FUNCTION-GENERATOR MAKE-METHOD-SPEC
220              ONE-INDEX-DFUN-INFO ONE-CLASS-DFUN-INFO              GET-NEW-FUNCTION-GENERATOR TRACE-EMF-CALL-INTERNAL
221                TRACE-METHOD-INTERNAL FLUSH-CACHE-TRAP ONE-INDEX-DFUN-INFO
222                SET-FUNCTION-NAME-1 ONE-CLASS-DFUN-INFO
223                OBSOLETE-INSTANCE-TRAP
224              |(FAST-METHOD COMPUTE-CLASS-PRECEDENCE-LIST (SLOT-CLASS))|              |(FAST-METHOD COMPUTE-CLASS-PRECEDENCE-LIST (SLOT-CLASS))|
225              MAP-ALL-ORDERS CAN-OPTIMIZE-ACCESS SKIP-FAST-SLOT-ACCESS-P              COMPUTE-PRECEDENCE MAP-ALL-ORDERS PRINT-STD-INSTANCE
226              WALKER::WALK-UNEXPECTED-DECLARE WALKER::WALK-FLET              CAN-OPTIMIZE-ACCESS |SETF PCL METHOD-FUNCTION-GET|
227              WALKER::WALK-IF WALKER::WALK-LABELS WALKER::WALK-LET              SKIP-FAST-SLOT-ACCESS-P |SETF PCL PLIST-VALUE|
228              WALKER::WALK-LET* WALKER::WALK-LOCALLY              WALKER::WALK-UNEXPECTED-DECLARE
229                WALKER::WITH-AUGMENTED-ENVIRONMENT-INTERNAL
230                WALKER::WALK-FLET WALKER::WALK-IF WALKER::WALK-LABELS
231                WALKER::WALK-LET WALKER::WALK-LET* WALKER::WALK-LOCALLY
232              |(FAST-METHOD CLASS-DIRECT-SLOTS (BUILT-IN-CLASS))|              |(FAST-METHOD CLASS-DIRECT-SLOTS (BUILT-IN-CLASS))|
233              WALKER::WALK-MACROLET              WALKER::WALK-MACROLET
234              |(FAST-METHOD CLASS-SLOTS (BUILT-IN-CLASS))|              |(FAST-METHOD CLASS-SLOTS (BUILT-IN-CLASS))|
235              |(FAST-METHOD CLASS-DIRECT-DEFAULT-INITARGS (BUILT-IN-CLASS))|              |(FAST-METHOD CLASS-DIRECT-DEFAULT-INITARGS (BUILT-IN-CLASS))|
236              FIX-SLOT-ACCESSORS              VARIABLE-DECLARATION 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 MAKE-INSTANCES-OBSOLETE (STD-CLASS))|  
             |(FAST-METHOD SLOTS-FETCHER (STANDARD-CLASS))|  
             STANDARD-COMPUTE-EFFECTIVE-METHOD  
             WALKER::WALK-SYMBOL-MACROLET PRINT-CACHE  
             MAKE-OPTIMIZED-STD-SLOT-VALUE-USING-CLASS-METHOD-FUNCTION  
             |(FAST-METHOD RAW-INSTANCE-ALLOCATOR (STANDARD-CLASS))|  
             MAKE-OPTIMIZED-STD-SETF-SLOT-VALUE-USING-CLASS-METHOD-FUNCTION  
             EMIT-SLOT-READ-FORM WALKER::WALK-TAGBODY  
             MAKE-OPTIMIZED-STD-SLOT-BOUNDP-USING-CLASS-METHOD-FUNCTION  
             WALKER::RECONS EMIT-BOUNDP-CHECK  
             ITERATE::OPTIMIZE-GATHERING-FORM WALKER::WALK-DO  
             WALKER::WALK-MULTIPLE-VALUE-SETQ WALKER::WALK-DO*  
             |(FAST-METHOD CLASS-CONSTRUCTORS (SLOT-CLASS))|  
             WALKER::WALK-PROG  
             |(FAST-METHOD CLASS-SLOT-CELLS (STD-CLASS))|  
             WALKER::WALK-NAMED-LAMBDA  
             |(FAST-METHOD SPECIALIZER-CLASS (CLASS))|  
             WALKER::WALK-PROG*  
             |(FAST-METHOD SPECIALIZER-CLASS (EQL-SPECIALIZER))|  
             EXPAND-DEFGENERIC  
             |(FAST-METHOD SPECIALIZER-DIRECT-METHODS (CLASS))|  
             EMIT-GREATER-THAN-1-DLAP  
             |(FAST-METHOD SPECIALIZER-DIRECT-GENERIC-FUNCTIONS (CLASS))|  
             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| VARIABLE-DECLARATION  
             |SETF PCL PLIST-VALUE|  
             WALKER::WITH-AUGMENTED-ENVIRONMENT-INTERNAL))  
237  (PROCLAIM  (PROCLAIM
238      '(FTYPE (FUNCTION (T T T T) T)      '(FTYPE (FUNCTION (T T T T) T) EXPAND-SYMBOL-MACROLET-INTERNAL
             |(FAST-METHOD ADD-DIRECT-SUBCLASS (CLASS CLASS))|  
             INITIALIZE-INSTANCE-SIMPLE  
             |(FAST-METHOD SAME-SPECIALIZER-P (CLASS-EQ-SPECIALIZER CLASS-EQ-SPECIALIZER))|  
             GET-WRAPPERS-FROM-CLASSES  
             |(FAST-METHOD SAME-SPECIALIZER-P (EQL-SPECIALIZER EQL-SPECIALIZER))|  
             LOAD-PRECOMPILED-IIS-ENTRY FILL-CACHE-P ADJUST-CACHE  
             |(FAST-METHOD REMOVE-DIRECT-SUBCLASS (CLASS CLASS))|  
             EXPAND-CACHE EXPAND-SYMBOL-MACROLET-INTERNAL  
239              |(FAST-METHOD ADD-DIRECT-METHOD (CLASS METHOD))|              |(FAST-METHOD ADD-DIRECT-METHOD (CLASS METHOD))|
240              BOOTSTRAP-SET-SLOT EXPAND-DEFCLASS              BOOTSTRAP-SET-SLOT EXPAND-DEFCLASS
241              |(FAST-METHOD REMOVE-DIRECT-METHOD (CLASS METHOD))|              |(FAST-METHOD REMOVE-DIRECT-METHOD (CLASS METHOD))|
# Line 314  Line 305 
305              |(FAST-METHOD SAME-SPECIALIZER-P (SPECIALIZER SPECIALIZER))|              |(FAST-METHOD SAME-SPECIALIZER-P (SPECIALIZER SPECIALIZER))|
306              EMIT-CHECKING-OR-CACHING-FUNCTION-PRELIMINARY              EMIT-CHECKING-OR-CACHING-FUNCTION-PRELIMINARY
307              |(FAST-METHOD SAME-SPECIALIZER-P (CLASS CLASS))|              |(FAST-METHOD SAME-SPECIALIZER-P (CLASS CLASS))|
308              MAYBE-EXPAND-ACCESSOR-FORM))              MAYBE-EXPAND-ACCESSOR-FORM
309  (PROCLAIM              |(FAST-METHOD ADD-DIRECT-SUBCLASS (CLASS CLASS))|
310      '(FTYPE (FUNCTION (T T T *) T) CHECK-INITARGS-2-PLIST              INITIALIZE-INSTANCE-SIMPLE
311              CHECK-INITARGS-2-LIST WALKER::WALK-ARGLIST MAKE-EMF-CALL              |(FAST-METHOD SAME-SPECIALIZER-P (CLASS-EQ-SPECIALIZER CLASS-EQ-SPECIALIZER))|
312              CAN-OPTIMIZE-ACCESS1 EMIT-FETCH-WRAPPER FILL-CACHE              GET-WRAPPERS-FROM-CLASSES
313              REAL-GET-METHOD CHECK-INITARGS-1 GET-METHOD))              |(FAST-METHOD SAME-SPECIALIZER-P (EQL-SPECIALIZER EQL-SPECIALIZER))|
314  (PROCLAIM              LOAD-PRECOMPILED-IIS-ENTRY FILL-CACHE-P ADJUST-CACHE
315      '(FTYPE (FUNCTION (T T T T T *) T) EMIT-DLAP              |(FAST-METHOD REMOVE-DIRECT-SUBCLASS (CLASS CLASS))|
316              GET-SECONDARY-DISPATCH-FUNCTION1))              EXPAND-CACHE))
 (PROCLAIM  
     '(FTYPE (FUNCTION (T T T FIXNUM) T) GET-CACHE  
             FILL-CACHE-FROM-CACHE-P))  
 (PROCLAIM  
     '(FTYPE (FUNCTION (T T T T T T T) T)  
             |(FAST-METHOD SLOT-MISSING (T T T T))| EXPAND-DEFMETHOD  
             LOAD-DEFMETHOD-INTERNAL))  
317  (PROCLAIM  (PROCLAIM
318      '(FTYPE (FUNCTION (T T T T T T) T) REAL-LOAD-DEFCLASS      '(FTYPE (FUNCTION (T T T T T T *) T) LOAD-DEFMETHOD
319              WALKER::WALK-TEMPLATE-HANDLE-REPEAT-1              MAKE-DEFMETHOD-FORM MAKE-DEFMETHOD-FORM-INTERNAL
320              BOOTSTRAP-MAKE-SLOT-DEFINITION EMIT-SLOT-ACCESS              EARLY-MAKE-A-METHOD))
             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))|))  
321  (PROCLAIM  (PROCLAIM
322      '(FTYPE (FUNCTION (T T T T T T T T T *) T)      '(FTYPE (FUNCTION (T T T T *) T) FILL-DFUN-CACHE
323              BOOTSTRAP-INITIALIZE-CLASS))              EARLY-ADD-NAMED-METHOD REAL-ADD-NAMED-METHOD))
324  (PROCLAIM  (PROCLAIM
325      '(FTYPE (FUNCTION (T T *) T) ENSURE-GENERIC-FUNCTION-USING-CLASS      '(FTYPE (FUNCTION (T T T T T T T T) T)
326              MAKE-EFFECTIVE-METHOD-FUNCTION-SIMPLE MAKE-EMF-FROM-METHOD              GET-SECONDARY-DISPATCH-FUNCTION2))
327              EXPAND-EFFECTIVE-METHOD-FUNCTION  (PROCLAIM '(FTYPE (FUNCTION (T T FIXNUM) T) COMPUTE-STD-CPL-PHASE-3))
             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))  
328  (PROCLAIM  (PROCLAIM
329      '(FTYPE (FUNCTION (T T T T T) T) UPDATE-SLOTS-IN-PV      '(FTYPE (FUNCTION (T T T T T) T) UPDATE-SLOTS-IN-PV
330              MAKE-PARAMETER-REFERENCES MAKE-EMF-CACHE              MAKE-PARAMETER-REFERENCES MAKE-EMF-CACHE
# Line 392  Line 363 
363              WALKER::WALK-TEMPLATE-HANDLE-REPEAT COMPUTE-PV-SLOT              WALKER::WALK-TEMPLATE-HANDLE-REPEAT COMPUTE-PV-SLOT
364              WALKER::WALK-BINDINGS-1 OPTIMIZE-INSTANCE-ACCESS              WALKER::WALK-BINDINGS-1 OPTIMIZE-INSTANCE-ACCESS
365              OPTIMIZE-ACCESSOR-CALL MAKE-METHOD-INITARGS-FORM-INTERNAL1))              OPTIMIZE-ACCESSOR-CALL MAKE-METHOD-INITARGS-FORM-INTERNAL1))
 (PROCLAIM '(FTYPE (FUNCTION (T T FIXNUM) T) COMPUTE-STD-CPL-PHASE-3))  
366  (PROCLAIM  (PROCLAIM
367      '(FTYPE (FUNCTION (T T T T T T T T) T)      '(FTYPE (FUNCTION (T T T *) T) GET-METHOD CHECK-INITARGS-2-PLIST
368              GET-SECONDARY-DISPATCH-FUNCTION2))              CHECK-INITARGS-2-LIST WALKER::WALK-ARGLIST MAKE-EMF-CALL
369                CAN-OPTIMIZE-ACCESS1 EMIT-FETCH-WRAPPER FILL-CACHE
370                REAL-GET-METHOD CHECK-INITARGS-1))
371  (PROCLAIM  (PROCLAIM
372      '(FTYPE (FUNCTION (T T T T *) T) FILL-DFUN-CACHE      '(FTYPE (FUNCTION (T T *) T) ENSURE-GENERIC-FUNCTION-USING-CLASS
373              EARLY-ADD-NAMED-METHOD REAL-ADD-NAMED-METHOD))              MAKE-EFFECTIVE-METHOD-FUNCTION-SIMPLE MAKE-EMF-FROM-METHOD
374                EXPAND-EFFECTIVE-METHOD-FUNCTION
375                NAMED-OBJECT-PRINT-FUNCTION FIND-CLASS-FROM-CELL
376                FIND-CLASS-PREDICATE-FROM-CELL INITIALIZE-INFO
377                GET-EFFECTIVE-METHOD-FUNCTION1 GET-DECLARATION
378                GET-METHOD-FUNCTION-PV-CELL EMIT-MISS METHOD-FUNCTION-GET
379                PROBE-CACHE MAP-CACHE PRECOMPUTE-EFFECTIVE-METHODS
380                RECORD-DEFINITION WALKER::CONVERT-MACRO-TO-LAMBDA CPL-ERROR
381                REAL-ADD-METHOD
382                REAL-ENSURE-GF-USING-CLASS--GENERIC-FUNCTION
383                REAL-ENSURE-GF-USING-CLASS--NULL
384                COMPUTE-SECONDARY-DISPATCH-FUNCTION1))
385  (PROCLAIM  (PROCLAIM
386      '(FTYPE (FUNCTION (T T T T T T *) T) LOAD-DEFMETHOD      '(FTYPE (FUNCTION (T T T T T T T T T *) T)
387              MAKE-DEFMETHOD-FORM MAKE-DEFMETHOD-FORM-INTERNAL              BOOTSTRAP-INITIALIZE-CLASS))
388              EARLY-MAKE-A-METHOD))  (PROCLAIM
389        '(FTYPE (FUNCTION (T T T T T T) T) REAL-LOAD-DEFCLASS
390                WALKER::WALK-TEMPLATE-HANDLE-REPEAT-1
391                BOOTSTRAP-MAKE-SLOT-DEFINITION EMIT-SLOT-ACCESS
392                OPTIMIZE-GF-CALL SET-ARG-INFO1 LOAD-DEFCLASS
393                MAKE-EARLY-CLASS-DEFINITION
394                |(FAST-METHOD (SETF SLOT-VALUE-USING-CLASS) (T STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))|))
395    (PROCLAIM
396        '(FTYPE (FUNCTION (T T T T T T T) T)
397                |(FAST-METHOD SLOT-MISSING (T T T T))| EXPAND-DEFMETHOD
398                LOAD-DEFMETHOD-INTERNAL))
399    (PROCLAIM
400        '(FTYPE (FUNCTION (T T T FIXNUM) T) GET-CACHE
401                FILL-CACHE-FROM-CACHE-P))
402    (PROCLAIM
403        '(FTYPE (FUNCTION (T T T T T *) T) EMIT-DLAP
404                GET-SECONDARY-DISPATCH-FUNCTION1))
405  (PROCLAIM  (PROCLAIM
406      '(FTYPE (FUNCTION NIL *) COUNT-ALL-DFUNS EMIT-N-N-READERS      '(FTYPE (FUNCTION NIL *) COUNT-ALL-DFUNS EMIT-N-N-READERS
407              EMIT-N-N-WRITERS))              EMIT-N-N-WRITERS))
408  (PROCLAIM  (PROCLAIM
409        '(FTYPE (FUNCTION (*) *) INVALID-METHOD-ERROR
410                METHOD-COMBINATION-ERROR UNTRACE-METHOD LIST-LARGE-CACHES
411                UPDATE-MAKE-INSTANCE-FUNCTION-TABLE))
412    (PROCLAIM
413      '(FTYPE (FUNCTION NIL T) RENEW-SYS-FILES      '(FTYPE (FUNCTION NIL T) RENEW-SYS-FILES
414              GET-EFFECTIVE-METHOD-GENSYM SHOW-EMF-CALL-TRACE              GET-EFFECTIVE-METHOD-GENSYM SHOW-EMF-CALL-TRACE
415              BOOTSTRAP-META-BRAID BOOTSTRAP-BUILT-IN-CLASSES              BOOTSTRAP-META-BRAID BOOTSTRAP-BUILT-IN-CLASSES
# Line 419  Line 422 
422              INITIAL-DISPATCH-DFUN-INFO INITIAL-DFUN-INFO              INITIAL-DISPATCH-DFUN-INFO INITIAL-DFUN-INFO
423              NO-METHODS-DFUN-INFO SHOW-FREE-CACHE-VECTORS MAKE-CPD              NO-METHODS-DFUN-INFO SHOW-FREE-CACHE-VECTORS MAKE-CPD
424              MAKE-ARG-INFO SHOW-DFUN-CONSTRUCTORS))              MAKE-ARG-INFO SHOW-DFUN-CONSTRUCTORS))
 (PROCLAIM  
     '(FTYPE (FUNCTION (*) *) INVALID-METHOD-ERROR  
             METHOD-COMBINATION-ERROR UNTRACE-METHOD LIST-LARGE-CACHES  
             UPDATE-MAKE-INSTANCE-FUNCTION-TABLE))  
 (PROCLAIM '(FTYPE (FUNCTION (FIXNUM T *) *) FIND-FREE-CACHE-LINE))  
425  (PROCLAIM '(FTYPE (FUNCTION (FIXNUM T T) *) COMPUTE-CACHE-PARAMETERS))  (PROCLAIM '(FTYPE (FUNCTION (FIXNUM T T) *) COMPUTE-CACHE-PARAMETERS))
426    (PROCLAIM '(FTYPE (FUNCTION (FIXNUM T *) *) FIND-FREE-CACHE-LINE))
427  (PROCLAIM  (PROCLAIM
428      '(FTYPE (FUNCTION (T) *) EMIT-CONSTANT-VALUE PCL-DESCRIBE      '(FTYPE (FUNCTION (T) *) EMIT-TWO-CLASS-WRITER
             GET-GENERIC-FUNCTION-INFO EARLY-METHOD-FUNCTION  
             EARLY-METHOD-STANDARD-ACCESSOR-SLOT-NAME  
             SPECIALIZER-FROM-TYPE CLASS-EQ-TYPE STRUCTURE-WRAPPER  
             FIND-STRUCTURE-CLASS MAKE-DISPATCH-DFUN FIND-WRAPPER  
             PARSE-DEFMETHOD PROTOTYPES-FOR-MAKE-METHOD-LAMBDA  
             EMIT-ONE-CLASS-READER EMIT-ONE-CLASS-WRITER  
             EMIT-TWO-CLASS-READER EMIT-TWO-CLASS-WRITER  
429              EMIT-ONE-INDEX-READERS EMIT-ONE-INDEX-WRITERS              EMIT-ONE-INDEX-READERS EMIT-ONE-INDEX-WRITERS
430              NET-CODE-CONVERTER EMIT-IN-CHECKING-CACHE-P              NET-CODE-CONVERTER EMIT-IN-CHECKING-CACHE-P
431              COMPILE-IIS-FUNCTIONS ANALYZE-LAMBDA-LIST              COMPILE-IIS-FUNCTIONS ANALYZE-LAMBDA-LIST
# Line 442  Line 434 
434              STRUCTURE-SLOTD-INIT-FORM PARSE-METHOD-GROUP-SPECIFIER              STRUCTURE-SLOTD-INIT-FORM PARSE-METHOD-GROUP-SPECIFIER
435              METHOD-PROTOTYPE-FOR-GF EARLY-COLLECT-INHERITANCE              METHOD-PROTOTYPE-FOR-GF EARLY-COLLECT-INHERITANCE
436              TYPE-FROM-SPECIALIZER *NORMALIZE-TYPE              TYPE-FROM-SPECIALIZER *NORMALIZE-TYPE
437              DEFAULT-CODE-CONVERTER CONVERT-TO-SYSTEM-TYPE))              DEFAULT-CODE-CONVERTER CONVERT-TO-SYSTEM-TYPE
438                EMIT-CONSTANT-VALUE PCL-DESCRIBE GET-GENERIC-FUNCTION-INFO
439                EARLY-METHOD-FUNCTION
440                EARLY-METHOD-STANDARD-ACCESSOR-SLOT-NAME
441                SPECIALIZER-FROM-TYPE CLASS-EQ-TYPE STRUCTURE-WRAPPER
442                FIND-STRUCTURE-CLASS MAKE-DISPATCH-DFUN FIND-WRAPPER
443                PARSE-DEFMETHOD PROTOTYPES-FOR-MAKE-METHOD-LAMBDA
444                EMIT-ONE-CLASS-READER EMIT-ONE-CLASS-WRITER
445                EMIT-TWO-CLASS-READER))
446  (PROCLAIM  (PROCLAIM
447      '(FTYPE (FUNCTION (*) T) |__si::MAKE-DFUN-INFO|      '(FTYPE (FUNCTION (*) T) |__si::MAKE-DFUN-INFO|
448              |__si::MAKE-NO-METHODS| |__si::MAKE-INITIAL|              |__si::MAKE-NO-METHODS| |__si::MAKE-INITIAL|
# Line 470  Line 470 
470  (PROCLAIM  (PROCLAIM
471      '(FTYPE (FUNCTION (T) T) VARIABLE-GLOBALLY-SPECIAL-P      '(FTYPE (FUNCTION (T) T) VARIABLE-GLOBALLY-SPECIAL-P
472              SYSTEM:%STRUCTURE-NAME SYSTEM:%COMPILED-FUNCTION-NAME              SYSTEM:%STRUCTURE-NAME SYSTEM:%COMPILED-FUNCTION-NAME
473              CLASS-OF EXTRACT-PARAMETERS CHECK-WRAPPER-VALIDITY              CLASS-OF ALLOCATE-CACHE-VECTOR SORT-SLOTS
474              CLASS-PREDICATE UNPARSE-SPECIALIZERS              TWO-CLASS-WRAPPER0 CPD-AFTER GF-INFO-SIMPLE-ACCESSOR-TYPE
475              EXTRACT-REQUIRED-PARAMETERS %SYMBOL-FUNCTION              SORT-CALLS FLUSH-CACHE-VECTOR-INTERNAL
476              MAKE-CLASS-EQ-PREDICATE INTERN-EQL-SPECIALIZER              INTERN-EQL-SPECIALIZER EXPAND-SHORT-DEFCOMBIN
477              FINAL-ACCESSOR-DFUN-TYPE TWO-CLASS-WRAPPER1              COMPUTE-LINE-SIZE SYMBOL-PKG-NAME ONE-INDEX-CACHE
478              COMPLICATED-INSTANCE-CREATION-METHOD MAKE-EQL-PREDICATE              MAKE-CALL-METHODS EXTRACT-LAMBDA-LIST
479              DEFAULT-STRUCTUREP EXTRACT-LAMBDA-LIST CHECKING-FUNCTION              GF-PRECOMPUTE-DFUN-AND-EMF-P
480              UPDATE-GF-INFO BOOTSTRAP-ACCESSOR-DEFINITIONS CACHE-OWNER              CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P
481              INITIALIZE-INFO-KEY DEFAULT-STRUCTURE-INSTANCE-P              EARLY-CLASS-NAME DEFAULT-CONSTANT-CONVERTER
482              BOOTSTRAP-CLASS-PREDICATES DEFAULT-STRUCTURE-TYPE              CANONICAL-SLOT-NAME INITIALIZE-INFO-BOUND-SLOTS
483              GET-BUILT-IN-CLASS-SYMBOL STRUCTURE-TYPE              ONE-INDEX-ACCESSOR-TYPE EARLY-CLASS-SLOTDS
484              INITIALIZE-INFO-WRAPPER COMPUTE-STD-CPL-PHASE-2              COMPILE-LAMBDA-UNCOMPILED INITIALIZE-INFO-CACHED-VALID-P
485              GET-BUILT-IN-WRAPPER-SYMBOL NET-TEST-CONVERTER              GF-INFO-STATIC-C-A-M-EMF INITIAL-DISPATCH-P ONE-INDEX-INDEX
486              GET-PV-CELL-FOR-CLASS DO-STANDARD-DEFSETF-1              GET-MAKE-INSTANCE-FUNCTIONS GF-LAMBDA-LIST DISPATCH-P
487              FAST-INSTANCE-BOUNDP-P WALKER::GET-WALKER-TEMPLATE              EXTRACT-PARAMETERS CHECKING-P CHECK-WRAPPER-VALIDITY
488              MAKE-INSTANCE-FUNCTION-SYMBOL INTERN-FUNCTION-NAME              METHOD-FUNCTION-PLIST EXTRACT-SPECIALIZER-NAMES
489              MAKE-FUNCTION-INLINE INITIALIZE-INFO-CACHED-RI-VALID-P              ECD-CLASS-NAME CLASS-PREDICATE ARG-INFO-KEYWORDS
490              EXTRACT-SPECIALIZER-NAMES UPDATE-ALL-C-A-M-GF-INFO              INITIAL-DISPATCH-CACHE UNPARSE-SPECIALIZERS EARLY-GF-NAME
491              CHECKING-CACHE METHOD-FUNCTION-PV-TABLE              EXTRACT-REQUIRED-PARAMETERS CHECK-CACHE %SYMBOL-FUNCTION
492                ACCESSOR-DFUN-INFO-P MAKE-CLASS-EQ-PREDICATE
493                FIND-CYCLE-REASONS FINAL-ACCESSOR-DFUN-TYPE
494                FORMAT-CYCLE-REASONS TWO-CLASS-WRAPPER1 COPY-CACHE
495                COMPLICATED-INSTANCE-CREATION-METHOD
496                INITIALIZE-INFO-CACHED-COMBINED-INITIALIZE-FUNCTION
497                MAKE-EQL-PREDICATE DISPATCH-CACHE INITIAL-CACHE
498                DEFAULT-STRUCTUREP GF-DFUN-CACHE CHECKING-FUNCTION
499                NEXT-WRAPPER-FIELD UPDATE-GF-INFO
500                WALKER::ENV-LEXICAL-VARIABLES
501                BOOTSTRAP-ACCESSOR-DEFINITIONS CLASS-FROM-TYPE CACHE-OWNER
502                CACHING-DFUN-INFO INITIALIZE-INFO-KEY STRUCTURE-SLOTD-TYPE
503                DEFAULT-STRUCTURE-INSTANCE-P
504                INITIALIZE-INFO-CACHED-MAKE-INSTANCE-FUNCTION
505                BOOTSTRAP-CLASS-PREDICATES EARLY-CLASS-DEFINITION
506                DEFAULT-STRUCTURE-TYPE GF-DFUN-INFO
507                GET-BUILT-IN-CLASS-SYMBOL DEFAULT-METHOD-ONLY-CACHE
508                STRUCTURE-TYPE FGEN-GENERATOR INITIALIZE-INFO-WRAPPER
509                DNET-METHODS-P COMPUTE-STD-CPL-PHASE-2
510                COMPUTE-APPLICABLE-METHODS-EMF-STD-P
511                GET-BUILT-IN-WRAPPER-SYMBOL SETFBOUNDP NET-TEST-CONVERTER
512                INITIALIZE-INFO-CACHED-MAKE-INSTANCE-FUNCTION-SYMBOL
513                GET-PV-CELL-FOR-CLASS ECD-SOURCE DO-STANDARD-DEFSETF-1
514                METHOD-CALL-P FAST-INSTANCE-BOUNDP-P
515                ACCESSOR-DFUN-INFO-CACHE WALKER::GET-WALKER-TEMPLATE
516                FGEN-SYSTEM GET-SETF-FUNCTION-NAME
517                MAKE-INSTANCE-FUNCTION-SYMBOL CONSTANT-VALUE-DFUN-INFO
518                INTERN-FUNCTION-NAME METHOD-FUNCTION-FROM-FAST-FUNCTION
519                MAKE-FUNCTION-INLINE INTERNED-SYMBOL-P
520                INITIALIZE-INFO-CACHED-RI-VALID-P ECD-METACLASS
521                UPDATE-ALL-C-A-M-GF-INFO STRUCTURE-SLOT-BOUNDP
522                CHECKING-CACHE ONE-INDEX-DFUN-INFO-CACHE
523                METHOD-FUNCTION-PV-TABLE LIST-DFUN
524              EARLY-SLOT-DEFINITION-NAME UPDATE-PV-TABLE-CACHE-INFO              EARLY-SLOT-DEFINITION-NAME UPDATE-PV-TABLE-CACHE-INFO
525              CONSTANT-VALUE-CACHE LIST-LARGE-CACHE              USE-CACHING-DFUN-P RESET-CLASS-INITIALIZE-INFO-1
526              INITIALIZE-INFO-CACHED-INITARGS-FORM-LIST DFUN-INFO-CACHE              CONSTANT-VALUE-CACHE ONE-INDEX-DFUN-INFO-ACCESSOR-TYPE
527              EARLY-CLASS-SLOTS METHOD-FUNCTION-METHOD SLOT-READER-SYMBOL              LIST-LARGE-CACHE GDEFINITION
528              NO-METHODS-CACHE COMPILE-LAMBDA-DEFERRED STORE-FGEN              INITIALIZE-INFO-CACHED-INITARGS-FORM-LIST CPD-CLASS
529              INITIALIZE-INFO-CACHED-NEW-KEYS ARG-INFO-APPLYP              DFUN-INFO-CACHE FUNCTION-RETURNING-NIL EARLY-CLASS-SLOTS
530              WRAPPER-FIELD GF-INFO-C-A-M-EMF-STD-P              METHOD-CALL-CALL-METHOD-ARGS METHOD-FUNCTION-METHOD
531              CLASS-PRECEDENCE-DESCRIPTION-P GBOUNDP CACHING-DFUN-COST              SLOT-READER-SYMBOL %FBOUNDP MAKE-PV-TYPE-DECLARATION
532              FUNCALLABLE-INSTANCE-P ONE-CLASS-P UPDATE-C-A-M-GF-INFO              NO-METHODS-CACHE COMPILE-LAMBDA-DEFERRED FREE-CACHE
533              INITIAL-CACHE STRUCTURE-TYPE-INTERNAL-SLOTDS              KEYWORD-SPEC-NAME STORE-FGEN UPDATE-CLASS-CAN-PRECEDE-P
534              INFORM-TYPE-SYSTEM-ABOUT-STD-CLASS GMAKUNBOUND              INITIALIZE-INFO-CACHED-NEW-KEYS EARLY-CLASS-PRECEDENCE-LIST
535              UNENCAPSULATED-FDEFINITION SHOW-DFUN-COSTS              ARG-INFO-APPLYP ITERATE::SEQUENCE-ACCESSOR WRAPPER-FIELD
536              MAKE-DEFAULT-METHOD-GROUP-DESCRIPTION              N-N-CACHE GF-INFO-C-A-M-EMF-STD-P SLOT-BOUNDP-SYMBOL
537                CLASS-PRECEDENCE-DESCRIPTION-P MAKE-CALLS-TYPE-DECLARATION
538                GBOUNDP PARSE-SPECIALIZERS CACHING-DFUN-COST
539                METHODS-CONTAIN-EQL-SPECIALIZER-P FUNCALLABLE-INSTANCE-P
540                %STD-INSTANCE-WRAPPER STRUCTURE-TYPE-INTERNAL-SLOTDS
541                GENERIC-CLOBBERS-FUNCTION
542                INFORM-TYPE-SYSTEM-ABOUT-STD-CLASS
543                ACCESSOR-DFUN-INFO-ACCESSOR-TYPE GMAKUNBOUND
544                MAP-SPECIALIZERS UNENCAPSULATED-FDEFINITION
545                ONE-INDEX-DFUN-INFO-P SHOW-DFUN-COSTS N-N-ACCESSOR-TYPE
546                MAKE-DEFAULT-METHOD-GROUP-DESCRIPTION RESET-INITIALIZE-INFO
547              INITIALIZE-INFO-CACHED-DEFAULT-INITARGS-FUNCTION              INITIALIZE-INFO-CACHED-DEFAULT-INITARGS-FUNCTION
548              METHOD-FUNCTION-NEEDS-NEXT-METHODS-P GF-INFO-FAST-MF-P              MAKE-TYPE-PREDICATE METHOD-FUNCTION-NEEDS-NEXT-METHODS-P
549              DFUN-INFO-P              %STD-INSTANCE-SLOTS GF-INFO-FAST-MF-P
550                FAST-METHOD-CALL-PV-CELL DFUN-INFO-P ECD-CANONICAL-SLOTS
551              MAKE-OPTIMIZED-STRUCTURE-SLOT-VALUE-USING-CLASS-METHOD-FUNCTION              MAKE-OPTIMIZED-STRUCTURE-SLOT-VALUE-USING-CLASS-METHOD-FUNCTION
552              UPDATE-GF-SIMPLE-ACCESSOR-TYPE RESET-CLASS-INITIALIZE-INFO              SLOT-VECTOR-SYMBOL UPDATE-GF-SIMPLE-ACCESSOR-TYPE CCLOSUREP
553              FTYPE-DECLARATION-FROM-LAMBDA-LIST              RESET-CLASS-INITIALIZE-INFO WRAPPER-FOR-STRUCTURE
554              EARLY-SLOT-DEFINITION-LOCATION NO-METHODS-P UNDEFMETHOD-1              FTYPE-DECLARATION-FROM-LAMBDA-LIST EVAL-FORM
555              WALKER::ENV-WALK-FUNCTION WALKER::ENV-LOCK FGEN-GENSYMS              EARLY-SLOT-DEFINITION-LOCATION CPD-SUPERS NO-METHODS-P
556              GET-CACHE-VECTOR              PV-TABLEP UNDEFMETHOD-1 ONE-CLASS-CACHE
557                WALKER::ENV-WALK-FUNCTION EARLY-METHOD-QUALIFIERS
558                WALKER::ENV-LOCK MAKE-PERMUTATION-VECTOR FGEN-GENSYMS
559                MAP-ALL-GENERIC-FUNCTIONS GET-CACHE-VECTOR
560                FAST-METHOD-CALL-NEXT-METHOD-CALL
561              WALKER::GET-IMPLEMENTATION-DEPENDENT-WALKER-TEMPLATE              WALKER::GET-IMPLEMENTATION-DEPENDENT-WALKER-TEMPLATE
562              UPDATE-GFS-OF-CLASS TWO-CLASS-P EARLY-COLLECT-CPL              ONE-INDEX-DFUN-INFO-INDEX UPDATE-GFS-OF-CLASS
563              STRUCTURE-TYPE-INCLUDED-TYPE-NAME DEFAULT-CONSTANTP              DEFAULT-TEST-CONVERTER TWO-CLASS-P STD-INSTANCE-P
564              COUNT-DFUN CONSTANT-SYMBOL-P              EARLY-COLLECT-CPL ONE-CLASS-ACCESSOR-TYPE
565                STRUCTURE-TYPE-INCLUDED-TYPE-NAME
566                PROCLAIM-INCOMPATIBLE-SUPERCLASSES DEFAULT-CONSTANTP
567                STRUCTURE-OBJECT-P COUNT-DFUN FAST-METHOD-CALL-P
568                CONSTANT-SYMBOL-P ONE-CLASS-INDEX
569              INITIALIZE-INFO-CACHED-SHARED-INITIALIZE-T-FUNCTION              INITIALIZE-INFO-CACHED-SHARED-INITIALIZE-T-FUNCTION
570              CACHING-P EARLY-COLLECT-SLOTS ARG-INFO-LAMBDA-LIST              ECD-OTHER-INITARGS CACHING-P EXPAND-LONG-DEFCOMBIN
571              MAKE-INITIAL-DFUN STRUCTURE-TYPE-SLOT-DESCRIPTION-LIST              EARLY-COLLECT-SLOTS COMPUTE-MCASE-PARAMETERS
572              FREE-CACHE-VECTOR MAKE-INITFUNCTION              ARG-INFO-LAMBDA-LIST BUILT-IN-WRAPPER-OF MAKE-INITIAL-DFUN
573              DO-STANDARD-DEFSETFS-FOR-DEFCLASS GFS-OF-TYPE ARG-INFO-P              WRAPPER-OF STRUCTURE-TYPE-SLOT-DESCRIPTION-LIST
574              ARG-INFO-PRECEDENCE DEFAULT-METHOD-ONLY-P CACHE-P              EXPAND-MAKE-INSTANCE-FORM FREE-CACHE-VECTOR
575              STRUCTURE-SLOTD-READER-FUNCTION              MAKE-STRUCTURE-SLOT-BOUNDP-FUNCTION MAKE-INITFUNCTION
576                TWO-CLASS-CACHE DO-STANDARD-DEFSETFS-FOR-DEFCLASS
577                SLOT-INITARGS-FROM-STRUCTURE-SLOTD GFS-OF-TYPE INITIAL-P
578                ARG-INFO-P COMPUTE-CLASS-SLOTS ARG-INFO-PRECEDENCE
579                BUILT-IN-OR-STRUCTURE-WRAPPER1 DEFAULT-METHOD-ONLY-P
580                EARLY-METHOD-STANDARD-ACCESSOR-P CACHE-P
581                MAKE-CONSTANT-FUNCTION STRUCTURE-SLOTD-READER-FUNCTION
582                N-N-P
583              MAKE-OPTIMIZED-STRUCTURE-SETF-SLOT-VALUE-USING-CLASS-METHOD-FUNCTION              MAKE-OPTIMIZED-STRUCTURE-SETF-SLOT-VALUE-USING-CLASS-METHOD-FUNCTION
584              STANDARD-SVUC-METHOD LEGAL-CLASS-NAME-P              TWO-CLASS-ACCESSOR-TYPE STANDARD-SVUC-METHOD TYPE-CLASS
585              EARLY-METHOD-LAMBDA-LIST ARG-INFO-METATYPES FGEN-TEST              LEGAL-CLASS-NAME-P EARLY-CLASS-NAME-OF
586              STRUCTURE-SLOTD-NAME METHOD-LL->GENERIC-FUNCTION-LL              EARLY-METHOD-LAMBDA-LIST MAKE-PV-TABLE-TYPE-DECLARATION
587              ITERATE::VARIABLES-FROM-LET              ARG-INFO-METATYPES TWO-CLASS-INDEX FGEN-TEST
588                FUNCTION-PRETTY-ARGLIST STRUCTURE-SLOTD-NAME
589                FUNCTION-RETURNING-T METHOD-LL->GENERIC-FUNCTION-LL
590                EARLY-CLASS-DIRECT-SUBCLASSES ITERATE::VARIABLES-FROM-LET
591                GET-MAKE-INSTANCE-FUNCTION-SYMBOL
592              INITIALIZE-INFO-CACHED-SHARED-INITIALIZE-NIL-FUNCTION              INITIALIZE-INFO-CACHED-SHARED-INITIALIZE-NIL-FUNCTION
593              STRUCTURE-TYPE-P ARG-INFO-VALID-P FGEN-GENERATOR-LAMBDA              ONE-CLASS-WRAPPER0 STRUCTURE-TYPE-P FORCE-CACHE-FLUSHES
594              EARLY-ACCESSOR-METHOD-SLOT-NAME              ARG-INFO-VALID-P GET-MAKE-INSTANCE-FUNCTION
595                FGEN-GENERATOR-LAMBDA EARLY-ACCESSOR-METHOD-SLOT-NAME
596              STRUCTURE-SLOTD-ACCESSOR-SYMBOL FAST-METHOD-CALL-ARG-INFO              STRUCTURE-SLOTD-ACCESSOR-SYMBOL FAST-METHOD-CALL-ARG-INFO
597              WALKER::ENV-WALK-FORM %CCLOSURE-ENV CONSTANT-VALUE-P              WALKER::ENV-WALK-FORM %CCLOSURE-ENV CONSTANT-VALUE-P
598              SLOT-WRITER-SYMBOL DFUN-ARG-SYMBOL CACHING-CACHE              SLOT-WRITER-SYMBOL DFUN-ARG-SYMBOL CACHING-CACHE
# Line 544  Line 607 
607              EARLY-GF-P              EARLY-GF-P
608              INITIALIZE-INFO-CACHED-COMBINED-INITARGS-FORM-LIST              INITIALIZE-INFO-CACHED-COMBINED-INITARGS-FORM-LIST
609              WALKER::ENV-DECLARATIONS ONE-INDEX-P ECD-SUPERCLASS-NAMES              WALKER::ENV-DECLARATIONS ONE-INDEX-P ECD-SUPERCLASS-NAMES
610              STRUCTURE-SLOTD-WRITER-FUNCTION METHOD-FUNCTION-PLIST              STRUCTURE-SLOTD-WRITER-FUNCTION ONE-CLASS-P
611              ARG-INFO-KEYWORDS EARLY-GF-NAME CHECK-CACHE              UPDATE-C-A-M-GF-INFO))
             ACCESSOR-DFUN-INFO-P FIND-CYCLE-REASONS  
             FORMAT-CYCLE-REASONS COPY-CACHE  
             INITIALIZE-INFO-CACHED-COMBINED-INITIALIZE-FUNCTION  
             DISPATCH-CACHE GF-DFUN-CACHE NEXT-WRAPPER-FIELD  
             WALKER::ENV-LEXICAL-VARIABLES CLASS-FROM-TYPE  
             CACHING-DFUN-INFO STRUCTURE-SLOTD-TYPE  
             INITIALIZE-INFO-CACHED-MAKE-INSTANCE-FUNCTION  
             EARLY-CLASS-DEFINITION GF-DFUN-INFO  
             DEFAULT-METHOD-ONLY-CACHE FGEN-GENERATOR DNET-METHODS-P  
             COMPUTE-APPLICABLE-METHODS-EMF-STD-P SETFBOUNDP  
             INITIALIZE-INFO-CACHED-MAKE-INSTANCE-FUNCTION-SYMBOL  
             ECD-SOURCE METHOD-CALL-P ACCESSOR-DFUN-INFO-CACHE  
             FGEN-SYSTEM GET-SETF-FUNCTION-NAME CONSTANT-VALUE-DFUN-INFO  
             METHOD-FUNCTION-FROM-FAST-FUNCTION INTERNED-SYMBOL-P  
             ECD-METACLASS STRUCTURE-SLOT-BOUNDP  
             ONE-INDEX-DFUN-INFO-CACHE LIST-DFUN USE-CACHING-DFUN-P  
             RESET-CLASS-INITIALIZE-INFO-1  
             ONE-INDEX-DFUN-INFO-ACCESSOR-TYPE GDEFINITION CPD-CLASS  
             FUNCTION-RETURNING-NIL METHOD-CALL-CALL-METHOD-ARGS  
             %FBOUNDP MAKE-PV-TYPE-DECLARATION FREE-CACHE  
             KEYWORD-SPEC-NAME UPDATE-CLASS-CAN-PRECEDE-P  
             EARLY-CLASS-PRECEDENCE-LIST ITERATE::SEQUENCE-ACCESSOR  
             N-N-CACHE SLOT-BOUNDP-SYMBOL MAKE-CALLS-TYPE-DECLARATION  
             PARSE-SPECIALIZERS METHODS-CONTAIN-EQL-SPECIALIZER-P  
             %STD-INSTANCE-WRAPPER GENERIC-CLOBBERS-FUNCTION  
             ACCESSOR-DFUN-INFO-ACCESSOR-TYPE MAP-SPECIALIZERS  
             ONE-INDEX-DFUN-INFO-P N-N-ACCESSOR-TYPE  
             RESET-INITIALIZE-INFO MAKE-TYPE-PREDICATE  
             %STD-INSTANCE-SLOTS FAST-METHOD-CALL-PV-CELL  
             ECD-CANONICAL-SLOTS SLOT-VECTOR-SYMBOL CCLOSUREP  
             WRAPPER-FOR-STRUCTURE EVAL-FORM CPD-SUPERS PV-TABLEP  
             ONE-CLASS-CACHE EARLY-METHOD-QUALIFIERS  
             MAKE-PERMUTATION-VECTOR MAP-ALL-GENERIC-FUNCTIONS  
             FAST-METHOD-CALL-NEXT-METHOD-CALL ONE-INDEX-DFUN-INFO-INDEX  
             DEFAULT-TEST-CONVERTER STD-INSTANCE-P  
             ONE-CLASS-ACCESSOR-TYPE PROCLAIM-INCOMPATIBLE-SUPERCLASSES  
             STRUCTURE-OBJECT-P FAST-METHOD-CALL-P ONE-CLASS-INDEX  
             ECD-OTHER-INITARGS EXPAND-LONG-DEFCOMBIN  
             COMPUTE-MCASE-PARAMETERS BUILT-IN-WRAPPER-OF WRAPPER-OF  
             EXPAND-MAKE-INSTANCE-FORM  
             MAKE-STRUCTURE-SLOT-BOUNDP-FUNCTION TWO-CLASS-CACHE  
             SLOT-INITARGS-FROM-STRUCTURE-SLOTD INITIAL-P  
             COMPUTE-CLASS-SLOTS BUILT-IN-OR-STRUCTURE-WRAPPER1  
             EARLY-METHOD-STANDARD-ACCESSOR-P MAKE-CONSTANT-FUNCTION  
             N-N-P TWO-CLASS-ACCESSOR-TYPE TYPE-CLASS  
             EARLY-CLASS-NAME-OF MAKE-PV-TABLE-TYPE-DECLARATION  
             TWO-CLASS-INDEX FUNCTION-PRETTY-ARGLIST  
             FUNCTION-RETURNING-T EARLY-CLASS-DIRECT-SUBCLASSES  
             GET-MAKE-INSTANCE-FUNCTION-SYMBOL ONE-CLASS-WRAPPER0  
             FORCE-CACHE-FLUSHES GET-MAKE-INSTANCE-FUNCTION  
             ALLOCATE-CACHE-VECTOR SORT-SLOTS TWO-CLASS-WRAPPER0  
             CPD-AFTER GF-INFO-SIMPLE-ACCESSOR-TYPE SORT-CALLS  
             FLUSH-CACHE-VECTOR-INTERNAL EXPAND-SHORT-DEFCOMBIN  
             COMPUTE-LINE-SIZE SYMBOL-PKG-NAME ONE-INDEX-CACHE  
             MAKE-CALL-METHODS GF-PRECOMPUTE-DFUN-AND-EMF-P  
             CLASS-HAS-A-FORWARD-REFERENCED-SUPERCLASS-P  
             EARLY-CLASS-NAME DEFAULT-CONSTANT-CONVERTER  
             CANONICAL-SLOT-NAME INITIALIZE-INFO-BOUND-SLOTS  
             ONE-INDEX-ACCESSOR-TYPE EARLY-CLASS-SLOTDS  
             COMPILE-LAMBDA-UNCOMPILED INITIALIZE-INFO-CACHED-VALID-P  
             GF-INFO-STATIC-C-A-M-EMF INITIAL-DISPATCH-P ONE-INDEX-INDEX  
             GET-MAKE-INSTANCE-FUNCTIONS GF-LAMBDA-LIST DISPATCH-P  
             CHECKING-P ECD-CLASS-NAME INITIAL-DISPATCH-CACHE))  
612  (PROCLAIM  (PROCLAIM
613      '(FTYPE (FUNCTION (T *) *) WALK-FORM MACROEXPAND-ALL      '(FTYPE (FUNCTION (T *) *) WALK-FORM MACROEXPAND-ALL
614              ENSURE-GENERIC-FUNCTION COERCE-TO-CLASS GET-METHOD-FUNCTION              ENSURE-GENERIC-FUNCTION COERCE-TO-CLASS GET-METHOD-FUNCTION
# Line 629  Line 629 
629              EARLY-METHOD-SPECIALIZERS USE-CONSTANT-VALUE-DFUN-P              EARLY-METHOD-SPECIALIZERS USE-CONSTANT-VALUE-DFUN-P
630              MAKE-EARLY-GF ALLOCATE-FUNCALLABLE-INSTANCE SET-ARG-INFO              MAKE-EARLY-GF ALLOCATE-FUNCALLABLE-INSTANCE SET-ARG-INFO
631              INITIALIZE-METHOD-FUNCTION UPDATE-DFUN MAKE-SPECIALIZABLE              INITIALIZE-METHOD-FUNCTION UPDATE-DFUN MAKE-SPECIALIZABLE
632              ALLOCATE-STRUCTURE-INSTANCE ALLOCATE-STANDARD-INSTANCE              ALLOCATE-STRUCTURE-INSTANCE
633              WALKER::WALKER-ENVIRONMENT-BIND-1              WALKER::WALKER-ENVIRONMENT-BIND-1
634              ITERATE::FUNCTION-LAMBDA-P ITERATE::MAYBE-WARN MAKE-WRAPPER              ALLOCATE-STANDARD-INSTANCE ITERATE::FUNCTION-LAMBDA-P
635              FIND-CLASS))              ITERATE::MAYBE-WARN MAKE-WRAPPER FIND-CLASS))
636  (PROCLAIM  (PROCLAIM
637      '(FTYPE (FUNCTION (T T) *) SLOT-BOUNDP SLOT-VALUE SLOT-MAKUNBOUND      '(FTYPE (FUNCTION (T T) *) SLOT-BOUNDP SLOT-VALUE SLOT-MAKUNBOUND
638              SAUT-CLASS SPECIALIZER-APPLICABLE-USING-TYPE-P COMPUTE-TEST              SAUT-CLASS SPECIALIZER-APPLICABLE-USING-TYPE-P COMPUTE-TEST
# Line 652  Line 652 
652              ITERATE::PARSE-DECLARATIONS INITIAL-DFUN))              ITERATE::PARSE-DECLARATIONS INITIAL-DFUN))
653  (PROCLAIM  (PROCLAIM
654      '(FTYPE (FUNCTION (T T) T) VARIABLE-LEXICAL-P      '(FTYPE (FUNCTION (T T) T) VARIABLE-LEXICAL-P
655              WALKER::WALK-REPEAT-EVAL VARIABLE-SPECIAL-P              WALKER::NOTE-DECLARATION VARIABLE-SPECIAL-P
656              WALKER::NOTE-DECLARATION MAKE-DFUN-LAMBDA-LIST              MAKE-DFUN-LAMBDA-LIST WALKER::NOTE-LEXICAL-BINDING
657              WALKER::NOTE-LEXICAL-BINDING MAKE-DLAP-LAMBDA-LIST              MAKE-DLAP-LAMBDA-LIST ADD-DIRECT-SUBCLASSES COMPUTE-PV
658              ADD-DIRECT-SUBCLASSES COMPUTE-PV MAKE-DFUN-ARG-LIST              MAKE-DFUN-ARG-LIST COMPUTE-CALLS
659              COMPUTE-CALLS SYSTEM:%SET-COMPILED-FUNCTION-NAME              SYSTEM:%SET-COMPILED-FUNCTION-NAME
660              MAKE-FAST-METHOD-CALL-LAMBDA-LIST              MAKE-FAST-METHOD-CALL-LAMBDA-LIST
661              UPDATE-ALL-PV-TABLE-CACHES UPDATE-CLASS              UPDATE-ALL-PV-TABLE-CACHES UPDATE-CLASS
662              MAP-PV-TABLE-REFERENCES-OF ADD-SLOT-ACCESSORS              MAP-PV-TABLE-REFERENCES-OF ADD-SLOT-ACCESSORS
# Line 687  Line 687 
687              WALKER::ENVIRONMENT-MACRO CANONICALIZE-SLOT-SPECIFICATION              WALKER::ENVIRONMENT-MACRO CANONICALIZE-SLOT-SPECIFICATION
688              CANONICALIZE-DEFCLASS-OPTION SET-WRAPPER              CANONICALIZE-DEFCLASS-OPTION SET-WRAPPER
689              DEAL-WITH-ARGUMENTS-OPTION PARSE-QUALIFIER-PATTERN              DEAL-WITH-ARGUMENTS-OPTION PARSE-QUALIFIER-PATTERN
690              ADD-METHOD SWAP-WRAPPERS-AND-SLOTS ITERATE::MV-SETQ              SWAP-WRAPPERS-AND-SLOTS ADD-METHOD ITERATE::MV-SETQ
691              MAKE-UNORDERED-METHODS-EMF CLASS-MIGHT-PRECEDE-P              MAKE-UNORDERED-METHODS-EMF CLASS-MIGHT-PRECEDE-P
692              ITERATE::EXTRACT-SPECIAL-BINDINGS              ITERATE::EXTRACT-SPECIAL-BINDINGS
693              WALKER::VARIABLE-SYMBOL-MACRO-P RAISE-METATYPE              WALKER::VARIABLE-SYMBOL-MACRO-P RAISE-METATYPE
# Line 700  Line 700 
700              MEMF-CONSTANT-CONVERTER COMPUTE-CONSTANTS              MEMF-CONSTANT-CONVERTER COMPUTE-CONSTANTS
701              CLASS-CAN-PRECEDE-P SAUT-NOT-CLASS SAUT-NOT-CLASS-EQ              CLASS-CAN-PRECEDE-P SAUT-NOT-CLASS SAUT-NOT-CLASS-EQ
702              SAUT-NOT-PROTOTYPE GF-MAKE-FUNCTION-FROM-EMF SAUT-NOT-EQL              SAUT-NOT-PROTOTYPE GF-MAKE-FUNCTION-FROM-EMF SAUT-NOT-EQL
703                SUPERCLASSES-COMPATIBLE-P
704              FUNCALLABLE-STANDARD-INSTANCE-ACCESS              FUNCALLABLE-STANDARD-INSTANCE-ACCESS
705              SUPERCLASSES-COMPATIBLE-P CLASSES-HAVE-COMMON-SUBCLASS-P              CLASSES-HAVE-COMMON-SUBCLASS-P DESCRIBE-PACKAGE
706              DESCRIBE-PACKAGE PRINTING-RANDOM-THING-INTERNAL              PRINTING-RANDOM-THING-INTERNAL MAKE-CLASS-PREDICATE
707              MAKE-CLASS-PREDICATE METHOD-FUNCTION-RETURNING-NIL              METHOD-FUNCTION-RETURNING-NIL METHOD-FUNCTION-RETURNING-T
708              METHOD-FUNCTION-RETURNING-T VARIABLE-CLASS SLOT-EXISTS-P              VARIABLE-CLASS MAKE-PLIST SLOT-EXISTS-P REMTAIL
709              MAKE-PLIST REMTAIL DESTRUCTURE-INTERNAL              DESTRUCTURE-INTERNAL ACCESSOR-MISS-FUNCTION
710              ACCESSOR-MISS-FUNCTION UPDATE-INITIALIZE-INFO-INTERNAL              UPDATE-INITIALIZE-INFO-INTERNAL N-N-DFUN-INFO MAKE-CAXR
711              N-N-DFUN-INFO MAKE-CAXR STANDARD-INSTANCE-ACCESS MAKE-CDXR              MAKE-CDXR STANDARD-INSTANCE-ACCESS CHECKING-DFUN-INFO
712               CHECKING-DFUN-INFO              MAKE-PV-TABLE-INTERNAL FIND-SLOT-DEFINITION
713              MAKE-PV-TABLE-INTERNAL FIND-SLOT-DEFINITION REMOVE-METHOD               WALKER::WALK-REPEAT-EVAL REMOVE-METHOD
714              SET-FUNCALLABLE-INSTANCE-FUNCTION))              SET-FUNCALLABLE-INSTANCE-FUNCTION))
715  (PROCLAIM '(FTYPE (FUNCTION NIL FIXNUM) GET-WRAPPER-CACHE-NUMBER))  (PROCLAIM '(FTYPE (FUNCTION NIL FIXNUM) GET-WRAPPER-CACHE-NUMBER))
716  (IN-PACKAGE "PCL")  (IN-PACKAGE "PCL")
717    
718  (DOLIST (V '(|(FAST-WRITER-METHOD SLOT-OBJECT FROM-DEFCLASS-P)|  (DOLIST (V '(|(FAST-WRITER-METHOD SLOT-OBJECT OPTIONS)|
                 |(FAST-WRITER-METHOD SLOT-OBJECT DIRECT-METHODS)|  
                 |(FAST-WRITER-METHOD SLOT-OBJECT SLOTS)|  
                 |(FAST-WRITER-METHOD SLOT-CLASS SLOTS)|  
                 |(FAST-WRITER-METHOD SLOT-OBJECT DIRECT-SLOTS)|  
                 |(FAST-WRITER-METHOD SLOT-CLASS DIRECT-SLOTS)|  
                 |(FAST-WRITER-METHOD SLOT-OBJECT METHODS)|  
719                  |(FAST-WRITER-METHOD STANDARD-GENERIC-FUNCTION METHODS)|                  |(FAST-WRITER-METHOD STANDARD-GENERIC-FUNCTION METHODS)|
720                  |(FAST-WRITER-METHOD SLOT-OBJECT OPTIONS)|                  |(FAST-WRITER-METHOD SLOT-OBJECT METHODS)|
721                  |(FAST-WRITER-METHOD SLOT-OBJECT DIRECT-SUBCLASSES)|                  |(FAST-WRITER-METHOD SLOT-CLASS DIRECT-SLOTS)|
722                    |(FAST-WRITER-METHOD SLOT-OBJECT DIRECT-SLOTS)|
723                    |(FAST-WRITER-METHOD SLOT-CLASS SLOTS)|
724                    |(FAST-WRITER-METHOD SLOT-OBJECT SLOTS)|
725                    |(FAST-WRITER-METHOD SLOT-OBJECT DIRECT-METHODS)|
726                    |(FAST-WRITER-METHOD SLOT-OBJECT FROM-DEFCLASS-P)|
727                  |(FAST-WRITER-METHOD SLOT-OBJECT DIRECT-SUPERCLASSES)|                  |(FAST-WRITER-METHOD SLOT-OBJECT DIRECT-SUPERCLASSES)|
728                    |(FAST-WRITER-METHOD SLOT-OBJECT DIRECT-SUBCLASSES)|
729                  ADD-READER-METHOD                  ADD-READER-METHOD
730                  SHORT-COMBINATION-IDENTITY-WITH-ONE-ARGUMENT                  SHORT-COMBINATION-IDENTITY-WITH-ONE-ARGUMENT
731                  REMOVE-READER-METHOD |LISP::T class predicate|                  REMOVE-READER-METHOD |LISP::T class predicate|
732                  EQL-SPECIALIZER-P |(SETF GENERIC-FUNCTION-NAME)|                  EQL-SPECIALIZER-P |(SETF GENERIC-FUNCTION-NAME)|
733                  OBJECT-PLIST SLOT-DEFINITION-DEFSTRUCT-ACCESSOR-SYMBOL                  OBJECT-PLIST SLOT-DEFINITION-DEFSTRUCT-ACCESSOR-SYMBOL
                 |PCL::STANDARD-OBJECT class predicate|  
                 |PCL::STANDARD-SLOT-DEFINITION class predicate|  
                 |PCL::STANDARD-DIRECT-SLOT-DEFINITION class predicate|  
                 |PCL::STANDARD-EFFECTIVE-SLOT-DEFINITION class predicate|  
734                  |PCL::STANDARD-METHOD-COMBINATION class predicate|                  |PCL::STANDARD-METHOD-COMBINATION class predicate|
735                    |PCL::STANDARD-EFFECTIVE-SLOT-DEFINITION class predicate|
736                    |PCL::STANDARD-DIRECT-SLOT-DEFINITION class predicate|
737                    |PCL::STANDARD-SLOT-DEFINITION class predicate|
738                    |PCL::STANDARD-OBJECT class predicate|
739                  |(FAST-READER-METHOD SLOT-OBJECT METHOD)|                  |(FAST-READER-METHOD SLOT-OBJECT METHOD)|
740                  |PCL::BUILT-IN-CLASS class predicate| SPECIALIZER-TYPE                  |PCL::BUILT-IN-CLASS class predicate| SPECIALIZER-TYPE
741                  |LISP::RATIO class predicate|                  |LISP::RATIONAL class predicate|
742                  |LISP::RATIONAL class predicate| GF-DFUN-STATE                  |LISP::RATIO class predicate| GF-DFUN-STATE
743                  |(SETF GENERIC-FUNCTION-METHOD-CLASS)|                  |(SETF GENERIC-FUNCTION-METHOD-CLASS)|
                 |(FAST-READER-METHOD SLOT-OBJECT DEFSTRUCT-ACCESSOR-SYMBOL)|  
744                  |(FAST-READER-METHOD STRUCTURE-SLOT-DEFINITION DEFSTRUCT-ACCESSOR-SYMBOL)|                  |(FAST-READER-METHOD STRUCTURE-SLOT-DEFINITION DEFSTRUCT-ACCESSOR-SYMBOL)|
745                    |(FAST-READER-METHOD SLOT-OBJECT DEFSTRUCT-ACCESSOR-SYMBOL)|
746                  |(SETF GENERIC-FUNCTION-METHOD-COMBINATION)|                  |(SETF GENERIC-FUNCTION-METHOD-COMBINATION)|
747                  CLASS-DEFSTRUCT-CONSTRUCTOR                  CLASS-DEFSTRUCT-CONSTRUCTOR
                 |(FAST-READER-METHOD SLOT-OBJECT SOURCE)|  
748                  |(FAST-READER-METHOD DEFINITION-SOURCE-MIXIN SOURCE)|                  |(FAST-READER-METHOD DEFINITION-SOURCE-MIXIN SOURCE)|
749                    |(FAST-READER-METHOD SLOT-OBJECT SOURCE)|
750                  METHOD-FAST-FUNCTION |(SETF GENERIC-FUNCTION-METHODS)|                  METHOD-FAST-FUNCTION |(SETF GENERIC-FUNCTION-METHODS)|
751                  |(SETF GF-PRETTY-ARGLIST)|                  |(SETF GF-PRETTY-ARGLIST)|
                 |(FAST-READER-METHOD SLOT-OBJECT INITIALIZE-INFO)|  
                 |(FAST-READER-METHOD SLOT-CLASS INITIALIZE-INFO)|  
                 |(FAST-READER-METHOD SLOT-OBJECT ARG-INFO)|  
752                  |(FAST-READER-METHOD STANDARD-GENERIC-FUNCTION ARG-INFO)|                  |(FAST-READER-METHOD STANDARD-GENERIC-FUNCTION ARG-INFO)|
753                    |(FAST-READER-METHOD SLOT-OBJECT ARG-INFO)|
754                    |(FAST-READER-METHOD SLOT-CLASS INITIALIZE-INFO)|
755                    |(FAST-READER-METHOD SLOT-OBJECT INITIALIZE-INFO)|
756                  SPECIALIZERP EXACT-CLASS-SPECIALIZER-P                  SPECIALIZERP EXACT-CLASS-SPECIALIZER-P
                 |(FAST-READER-METHOD SLOT-OBJECT WRAPPER)|  
757                  |(FAST-READER-METHOD PCL-CLASS WRAPPER)|                  |(FAST-READER-METHOD PCL-CLASS WRAPPER)|
758                  |(FAST-READER-METHOD SLOT-OBJECT INITARGS)|                  |(FAST-READER-METHOD SLOT-OBJECT WRAPPER)|
759                  |(FAST-READER-METHOD SLOT-DEFINITION INITARGS)|                  |(FAST-READER-METHOD SLOT-DEFINITION INITARGS)|
760                  |(FAST-READER-METHOD SHORT-METHOD-COMBINATION OPERATOR)|                  |(FAST-READER-METHOD SLOT-OBJECT INITARGS)|
                 |(FAST-READER-METHOD SLOT-OBJECT OPERATOR)|  
                 |(FAST-READER-METHOD SLOT-OBJECT DEFSTRUCT-CONSTRUCTOR)|  
761                  |(FAST-READER-METHOD STRUCTURE-CLASS DEFSTRUCT-CONSTRUCTOR)|                  |(FAST-READER-METHOD STRUCTURE-CLASS DEFSTRUCT-CONSTRUCTOR)|
762                  COMPATIBLE-META-CLASS-CHANGE-P                  |(FAST-READER-METHOD SLOT-OBJECT DEFSTRUCT-CONSTRUCTOR)|
763                    |(FAST-READER-METHOD SLOT-OBJECT OPERATOR)|
764                    |(FAST-READER-METHOD SHORT-METHOD-COMBINATION OPERATOR)|
765                  |LISP::CHARACTER class predicate|                  |LISP::CHARACTER class predicate|
766                    COMPATIBLE-META-CLASS-CHANGE-P
767                  |LISP::SEQUENCE class predicate|                  |LISP::SEQUENCE class predicate|
                 |(FAST-READER-METHOD SLOT-OBJECT CLASS-EQ-SPECIALIZER)|  
768                  |(FAST-READER-METHOD CLASS CLASS-EQ-SPECIALIZER)|                  |(FAST-READER-METHOD CLASS CLASS-EQ-SPECIALIZER)|
769                    |(FAST-READER-METHOD SLOT-OBJECT CLASS-EQ-SPECIALIZER)|
770                  |(BOUNDP READER-FUNCTION)| |(BOUNDP PREDICATE-NAME)|                  |(BOUNDP READER-FUNCTION)| |(BOUNDP PREDICATE-NAME)|
771                  |(BOUNDP READERS)| UPDATE-GF-DFUN                  |(BOUNDP READERS)| UPDATE-GF-DFUN
772                  |(BOUNDP CLASS-PRECEDENCE-LIST)|                  |(BOUNDP CLASS-PRECEDENCE-LIST)|
773                  |(BOUNDP ACCESSOR-FLAGS)| |(BOUNDP LOCATION)|                  |(BOUNDP ACCESSOR-FLAGS)| |(BOUNDP DOCUMENTATION)|
774                  |(BOUNDP DOCUMENTATION)| SPECIALIZER-OBJECT                  |(BOUNDP LOCATION)| SPECIALIZER-OBJECT
775                  |(BOUNDP INCOMPATIBLE-SUPERCLASS-LIST)|                  |(BOUNDP INCOMPATIBLE-SUPERCLASS-LIST)|
776                  ACCESSOR-METHOD-SLOT-NAME |(BOUNDP SPECIALIZERS)|                  ACCESSOR-METHOD-SLOT-NAME |(BOUNDP SPECIALIZERS)|
777                  |(BOUNDP IDENTITY-WITH-ONE-ARGUMENT)|                  |(BOUNDP IDENTITY-WITH-ONE-ARGUMENT)|
# Line 783  Line 784 
784                  CLASS-EQ-SPECIALIZER-P                  CLASS-EQ-SPECIALIZER-P
785                  |(FAST-BOUNDP-METHOD SLOT-OBJECT SOURCE)| SLOTS-FETCHER                  |(FAST-BOUNDP-METHOD SLOT-OBJECT SOURCE)| SLOTS-FETCHER
786                  |(SETF SLOT-ACCESSOR-STD-P)| REMOVE-WRITER-METHOD                  |(SETF SLOT-ACCESSOR-STD-P)| REMOVE-WRITER-METHOD
787                  |(BOUNDP WRITER-FUNCTION)| |(BOUNDP INITFUNCTION)|                  |(BOUNDP INITFUNCTION)| |(BOUNDP WRITER-FUNCTION)|
                 |(FAST-BOUNDP-METHOD SLOT-OBJECT INITIALIZE-INFO)|  
788                  |(FAST-BOUNDP-METHOD SLOT-OBJECT ARG-INFO)|                  |(FAST-BOUNDP-METHOD SLOT-OBJECT ARG-INFO)|
789                    |(FAST-BOUNDP-METHOD SLOT-OBJECT INITIALIZE-INFO)|
790                  STRUCTURE-CLASS-P |(BOUNDP WRITERS)|                  STRUCTURE-CLASS-P |(BOUNDP WRITERS)|
791                  |(BOUNDP INITFORM)|                  |(BOUNDP INITFORM)|
792                  |(FAST-BOUNDP-METHOD SLOT-OBJECT WRAPPER)|                  |(FAST-BOUNDP-METHOD SLOT-OBJECT WRAPPER)|
# Line 795  Line 796 
796                  UPDATE-CONSTRUCTORS |(BOUNDP SLOT-NAME)|                  UPDATE-CONSTRUCTORS |(BOUNDP SLOT-NAME)|
797                  |(SETF SLOT-DEFINITION-INITARGS)| |(BOUNDP ALLOCATION)|                  |(SETF SLOT-DEFINITION-INITARGS)| |(BOUNDP ALLOCATION)|
798                  |(FAST-BOUNDP-METHOD SLOT-OBJECT CLASS-EQ-SPECIALIZER)|                  |(FAST-BOUNDP-METHOD SLOT-OBJECT CLASS-EQ-SPECIALIZER)|
799                  DOCUMENTATION |(BOUNDP FUNCTION)|                  DOCUMENTATION |(BOUNDP GENERIC-FUNCTION)|
800                  |(BOUNDP GENERIC-FUNCTION)| |(BOUNDP LAMBDA-LIST)|                  |(BOUNDP FUNCTION)| |(BOUNDP LAMBDA-LIST)|
801                  METHOD-PRETTY-ARGLIST |(BOUNDP SLOT-DEFINITION)|                  METHOD-PRETTY-ARGLIST |(BOUNDP SLOT-DEFINITION)|
802                  |LISP::ARRAY class predicate|                  |LISP::ARRAY class predicate|
803                  |(BOUNDP CAN-PRECEDE-LIST)| |(BOUNDP PROTOTYPE)|                  |(BOUNDP CAN-PRECEDE-LIST)| |(BOUNDP PROTOTYPE)|
# Line 809  Line 810 
810                  |(CALL STANDARD-COMPUTE-EFFECTIVE-METHOD)|                  |(CALL STANDARD-COMPUTE-EFFECTIVE-METHOD)|
811                  |(BOUNDP FAST-FUNCTION)|                  |(BOUNDP FAST-FUNCTION)|
812                  |LISP::COMPLEX class predicate| |(BOUNDP METHOD-CLASS)|                  |LISP::COMPLEX class predicate| |(BOUNDP METHOD-CLASS)|
813                  |(READER SOURCE)| |(BOUNDP INTERNAL-WRITER-FUNCTION)|                  |(READER SOURCE)| |(BOUNDP METHOD-COMBINATION)|
814                  |(BOUNDP INTERNAL-READER-FUNCTION)|                  |(BOUNDP INTERNAL-READER-FUNCTION)|
815                  |(BOUNDP METHOD-COMBINATION)| ACCESSOR-METHOD-CLASS                  |(BOUNDP INTERNAL-WRITER-FUNCTION)|
816                  |(BOUNDP DIRECT-SLOTS)| |(BOUNDP DIRECT-METHODS)|                  ACCESSOR-METHOD-CLASS |(BOUNDP DIRECT-METHODS)|
817                  |(BOUNDP BOUNDP-FUNCTION)| |(BOUNDP DIRECT-SUBCLASSES)|                  |(BOUNDP DIRECT-SLOTS)| |(BOUNDP BOUNDP-FUNCTION)|
818                  |(BOUNDP DIRECT-SUPERCLASSES)| |(BOUNDP METHODS)|                  |(BOUNDP DIRECT-SUPERCLASSES)|
819                  |(BOUNDP OPTIONS)| |(WRITER METHOD)|                  |(BOUNDP DIRECT-SUBCLASSES)| |(BOUNDP OPTIONS)|
820                    |(BOUNDP METHODS)| |(WRITER METHOD)|
821                  |LISP::BUILT-IN-CLASS class predicate|                  |LISP::BUILT-IN-CLASS class predicate|
822                  |PCL::DEPENDENT-UPDATE-MIXIN class predicate|                  |PCL::DEPENDENT-UPDATE-MIXIN class predicate|
823                  GENERIC-FUNCTION-PRETTY-ARGLIST |(WRITER SOURCE)|                  GENERIC-FUNCTION-PRETTY-ARGLIST |(WRITER SOURCE)|
                 |(FAST-METHOD INITIALIZE-INSTANCE (SLOT-OBJECT))|  
824                  |(FAST-METHOD SLOTS-TO-INSPECT (SLOT-CLASS SLOT-OBJECT))|                  |(FAST-METHOD SLOTS-TO-INSPECT (SLOT-CLASS SLOT-OBJECT))|
825                    |(FAST-METHOD INITIALIZE-INSTANCE (SLOT-OBJECT))|
826                  |(FAST-METHOD UPDATE-INSTANCE-FOR-DIFFERENT-CLASS (STANDARD-OBJECT STANDARD-OBJECT))|                  |(FAST-METHOD UPDATE-INSTANCE-FOR-DIFFERENT-CLASS (STANDARD-OBJECT STANDARD-OBJECT))|
827                  |(FAST-METHOD SPECIALIZER-DIRECT-METHODS (SPECIALIZER-WITH-OBJECT))|                  |(FAST-METHOD SPECIALIZER-DIRECT-METHODS (SPECIALIZER-WITH-OBJECT))|
828                  |(FAST-METHOD SPECIALIZER-DIRECT-GENERIC-FUNCTIONS (SPECIALIZER-WITH-OBJECT))|                  |(FAST-METHOD SPECIALIZER-DIRECT-GENERIC-FUNCTIONS (SPECIALIZER-WITH-OBJECT))|
# Line 828  Line 830 
830                  |(FAST-METHOD SPECIALIZER-METHOD-TABLE (EQL-SPECIALIZER))|                  |(FAST-METHOD SPECIALIZER-METHOD-TABLE (EQL-SPECIALIZER))|
831                  |(FAST-METHOD SPECIALIZER-METHOD-TABLE (CLASS-EQ-SPECIALIZER))|                  |(FAST-METHOD SPECIALIZER-METHOD-TABLE (CLASS-EQ-SPECIALIZER))|
832                  |(FAST-METHOD SPECIALIZER-CLASS (EQL-SPECIALIZER))|                  |(FAST-METHOD SPECIALIZER-CLASS (EQL-SPECIALIZER))|
                 |(FAST-METHOD SAME-SPECIALIZER-P (SPECIALIZER SPECIALIZER))|  
833                  |(FAST-METHOD SAME-SPECIALIZER-P (CLASS-EQ-SPECIALIZER CLASS-EQ-SPECIALIZER))|                  |(FAST-METHOD SAME-SPECIALIZER-P (CLASS-EQ-SPECIALIZER CLASS-EQ-SPECIALIZER))|
834                  |(FAST-METHOD SAME-SPECIALIZER-P (EQL-SPECIALIZER EQL-SPECIALIZER))|                  |(FAST-METHOD SAME-SPECIALIZER-P (EQL-SPECIALIZER EQL-SPECIALIZER))|
835                    |(FAST-METHOD SAME-SPECIALIZER-P (SPECIALIZER SPECIALIZER))|
836                  MAKE-BOUNDP-METHOD-FUNCTION                  MAKE-BOUNDP-METHOD-FUNCTION
837                  |LISP::STRING class predicate|                  |LISP::STRING class predicate|
838                  |(FAST-METHOD DOCUMENTATION (DOCUMENTATION-MIXIN))|                  |(FAST-METHOD DOCUMENTATION (DOCUMENTATION-MIXIN))|
# Line 839  Line 841 
841                  |(FAST-METHOD DOCUMENTATION (STANDARD-SLOT-DEFINITION))|                  |(FAST-METHOD DOCUMENTATION (STANDARD-SLOT-DEFINITION))|
842                  |(FAST-METHOD CHANGE-CLASS (T SYMBOL))|                  |(FAST-METHOD CHANGE-CLASS (T SYMBOL))|
843                  |(FAST-METHOD MAKE-INSTANCE (SYMBOL))|                  |(FAST-METHOD MAKE-INSTANCE (SYMBOL))|
844                  |(FAST-METHOD (SETF SLOT-VALUE-USING-CLASS) (T STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))|                  |(FAST-METHOD (SETF DOCUMENTATION) (T STANDARD-SLOT-DEFINITION))|
845                    |(FAST-METHOD SLOT-VALUE-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))|
846                    |(FAST-METHOD SLOT-VALUE-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))|
847                  |(FAST-METHOD METHOD-LAMBDA-LIST (TRACED-METHOD))|                  |(FAST-METHOD METHOD-LAMBDA-LIST (TRACED-METHOD))|
848                  |(FAST-METHOD METHOD-SPECIALIZERS (TRACED-METHOD))|                  |(FAST-METHOD METHOD-SPECIALIZERS (TRACED-METHOD))|
849                  |(FAST-METHOD METHOD-QUALIFIERS (TRACED-METHOD))|                  |(FAST-METHOD METHOD-QUALIFIERS (TRACED-METHOD))|
# Line 850  Line 854 
854                  |(FAST-METHOD MAKE-INSTANCES-OBSOLETE (SYMBOL))|                  |(FAST-METHOD MAKE-INSTANCES-OBSOLETE (SYMBOL))|
855                  |(FAST-METHOD METHOD-FUNCTION (STANDARD-METHOD))|                  |(FAST-METHOD METHOD-FUNCTION (STANDARD-METHOD))|
856                  |(FAST-METHOD COMPUTE-DISCRIMINATING-FUNCTION-ARGLIST-INFO (STANDARD-GENERIC-FUNCTION))|                  |(FAST-METHOD COMPUTE-DISCRIMINATING-FUNCTION-ARGLIST-INFO (STANDARD-GENERIC-FUNCTION))|
857                  |(FAST-METHOD (SETF DOCUMENTATION) (T STANDARD-SLOT-DEFINITION))|                  |(FAST-METHOD (SETF SLOT-VALUE-USING-CLASS) (T STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))|
                 |(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 GENERIC-FUNCTION-PRETTY-ARGLIST (STANDARD-GENERIC-FUNCTION))|  
                 |(FAST-METHOD INITIALIZE-INTERNAL-SLOT-FUNCTIONS (EFFECTIVE-SLOT-DEFINITION))|  
                 |(FAST-METHOD SLOT-DEFINITION-ALLOCATION (STRUCTURE-SLOT-DEFINITION))|  
858                  |(FAST-METHOD ACCESSOR-METHOD-CLASS (STANDARD-ACCESSOR-METHOD))|                  |(FAST-METHOD ACCESSOR-METHOD-CLASS (STANDARD-ACCESSOR-METHOD))|
859                  |(FAST-METHOD ACCESSOR-METHOD-CLASS (STANDARD-WRITER-METHOD))|                  |(FAST-METHOD ACCESSOR-METHOD-CLASS (STANDARD-WRITER-METHOD))|
860                  |(FAST-METHOD METHOD-QUALIFIERS (STANDARD-METHOD))|                  |(FAST-METHOD METHOD-QUALIFIERS (STANDARD-METHOD))|
861                  |(FAST-METHOD GENERIC-FUNCTION-LAMBDA-LIST (GENERIC-FUNCTION))|                  |(FAST-METHOD GENERIC-FUNCTION-LAMBDA-LIST (GENERIC-FUNCTION))|
862                  |(FAST-METHOD GF-FAST-METHOD-FUNCTION-P (STANDARD-GENERIC-FUNCTION))|                  |(FAST-METHOD GF-FAST-METHOD-FUNCTION-P (STANDARD-GENERIC-FUNCTION))|
863                    |(FAST-METHOD GENERIC-FUNCTION-PRETTY-ARGLIST (STANDARD-GENERIC-FUNCTION))|
864                    |(FAST-METHOD INITIALIZE-INTERNAL-SLOT-FUNCTIONS (EFFECTIVE-SLOT-DEFINITION))|
865                    |(FAST-METHOD SLOT-DEFINITION-ALLOCATION (STRUCTURE-SLOT-DEFINITION))|
866                  |(FAST-METHOD ADD-DIRECT-METHOD (CLASS METHOD))|                  |(FAST-METHOD ADD-DIRECT-METHOD (CLASS METHOD))|
867                  |(FAST-METHOD REMOVE-DIRECT-METHOD (CLASS METHOD))|                  |(FAST-METHOD REMOVE-DIRECT-METHOD (CLASS METHOD))|
868                  |(FAST-METHOD ADD-DIRECT-METHOD (SPECIALIZER-WITH-OBJECT METHOD))|                  |(FAST-METHOD ADD-DIRECT-METHOD (SPECIALIZER-WITH-OBJECT METHOD))|
# Line 868  Line 870 
870                  |(FAST-METHOD REINITIALIZE-INSTANCE (STANDARD-METHOD))|                  |(FAST-METHOD REINITIALIZE-INSTANCE (STANDARD-METHOD))|
871                  |(FAST-METHOD INITIALIZE-INSTANCE :AFTER (STANDARD-GENERIC-FUNCTION))|                  |(FAST-METHOD INITIALIZE-INSTANCE :AFTER (STANDARD-GENERIC-FUNCTION))|
872                  |(FAST-METHOD REINITIALIZE-INSTANCE :AFTER (STANDARD-GENERIC-FUNCTION))|                  |(FAST-METHOD REINITIALIZE-INSTANCE :AFTER (STANDARD-GENERIC-FUNCTION))|
873                    |(FAST-METHOD (SETF SLOT-VALUE-USING-CLASS) (T STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))|
874                  |(FAST-METHOD SLOT-BOUNDP-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))|                  |(FAST-METHOD SLOT-BOUNDP-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))|
875                  |(FAST-METHOD SLOT-MAKUNBOUND-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))|                  |(FAST-METHOD SLOT-MAKUNBOUND-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))|
876                  |(FAST-METHOD SLOT-BOUNDP-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))|                  |(FAST-METHOD SLOT-BOUNDP-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION))|
877                  |(FAST-METHOD SLOT-MAKUNBOUND-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 (SETF SLOT-VALUE-USING-CLASS) (T STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION))|  
878                  |(FAST-METHOD REINITIALIZE-INSTANCE :AFTER (SLOT-CLASS))|                  |(FAST-METHOD REINITIALIZE-INSTANCE :AFTER (SLOT-CLASS))|
879                  |(FAST-METHOD ALLOCATE-INSTANCE (STRUCTURE-CLASS))|                  |(FAST-METHOD ALLOCATE-INSTANCE (STRUCTURE-CLASS))|
880                  |(FAST-METHOD CLASS-PROTOTYPE (STD-CLASS))|                  |(FAST-METHOD CLASS-PROTOTYPE (STD-CLASS))|
881                  |(FAST-METHOD CLASS-PROTOTYPE (STRUCTURE-CLASS))|                  |(FAST-METHOD CLASS-PROTOTYPE (STRUCTURE-CLASS))|
882                    |(FAST-METHOD WRAPPER-FETCHER (FUNCALLABLE-STANDARD-CLASS))|
883                    |(FAST-METHOD SLOTS-FETCHER (FUNCALLABLE-STANDARD-CLASS))|
884                    |(FAST-METHOD RAW-INSTANCE-ALLOCATOR (FUNCALLABLE-STANDARD-CLASS))|
885                  |(FAST-METHOD FINALIZE-INHERITANCE (STRUCTURE-CLASS))|                  |(FAST-METHOD FINALIZE-INHERITANCE (STRUCTURE-CLASS))|
886                  |(FAST-METHOD FINALIZE-INHERITANCE (STD-CLASS))|                  |(FAST-METHOD FINALIZE-INHERITANCE (STD-CLASS))|
887                  |(FAST-METHOD COMPUTE-DEFAULT-INITARGS (SLOT-CLASS))|                  |(FAST-METHOD COMPUTE-DEFAULT-INITARGS (SLOT-CLASS))|
# Line 893  Line 898 
898                  |(FAST-METHOD CLASS-DIRECT-DEFAULT-INITARGS (BUILT-IN-CLASS))|                  |(FAST-METHOD CLASS-DIRECT-DEFAULT-INITARGS (BUILT-IN-CLASS))|
899                  |(FAST-METHOD WRAPPER-FETCHER (STANDARD-CLASS))|                  |(FAST-METHOD WRAPPER-FETCHER (STANDARD-CLASS))|
900                  |(FAST-METHOD CLASS-DEFAULT-INITARGS (BUILT-IN-CLASS))|                  |(FAST-METHOD CLASS-DEFAULT-INITARGS (BUILT-IN-CLASS))|
901                    |(FAST-METHOD MAKE-INSTANCES-OBSOLETE (STD-CLASS))|
902                  |(FAST-METHOD SLOTS-FETCHER (STANDARD-CLASS))|                  |(FAST-METHOD SLOTS-FETCHER (STANDARD-CLASS))|
903                  |(FAST-METHOD RAW-INSTANCE-ALLOCATOR (STANDARD-CLASS))|                  |(FAST-METHOD RAW-INSTANCE-ALLOCATOR (STANDARD-CLASS))|
                 |(FAST-METHOD WRAPPER-FETCHER (FUNCALLABLE-STANDARD-CLASS))|  
                 |(FAST-METHOD SLOTS-FETCHER (FUNCALLABLE-STANDARD-CLASS))|  
                 |(FAST-METHOD RAW-INSTANCE-ALLOCATOR (FUNCALLABLE-STANDARD-CLASS))|  
                 |(FAST-METHOD MAKE-INSTANCES-OBSOLETE (STD-CLASS))|  
904                  |(FAST-METHOD CLASS-CONSTRUCTORS (SLOT-CLASS))|                  |(FAST-METHOD CLASS-CONSTRUCTORS (SLOT-CLASS))|
905                  |(FAST-METHOD CLASS-SLOT-CELLS (STD-CLASS))|                  |(FAST-METHOD CLASS-SLOT-CELLS (STD-CLASS))|
906                  |(FAST-METHOD SPECIALIZER-CLASS (CLASS))|                  |(FAST-METHOD SPECIALIZER-CLASS (CLASS))|
907                  |(FAST-METHOD SPECIALIZER-DIRECT-METHODS (CLASS))|                  |(FAST-METHOD SPECIALIZER-DIRECT-METHODS (CLASS))|
908                  |(FAST-METHOD SPECIALIZER-DIRECT-GENERIC-FUNCTIONS (CLASS))|                  |(FAST-METHOD SPECIALIZER-DIRECT-GENERIC-FUNCTIONS (CLASS))|
                 |(FAST-METHOD SAME-SPECIALIZER-P (CLASS CLASS))|  
909                  |(FAST-METHOD ADD-DIRECT-SUBCLASS (CLASS CLASS))|                  |(FAST-METHOD ADD-DIRECT-SUBCLASS (CLASS CLASS))|
910                  |(FAST-METHOD REMOVE-DIRECT-SUBCLASS (CLASS CLASS))|                  |(FAST-METHOD REMOVE-DIRECT-SUBCLASS (CLASS CLASS))|
911                  |(FAST-METHOD REINITIALIZE-INSTANCE :BEFORE (SLOT-CLASS))|                  |(FAST-METHOD REINITIALIZE-INSTANCE :BEFORE (SLOT-CLASS))|
# Line 917  Line 918 
918                  |(FAST-METHOD VALIDATE-SUPERCLASS (FUNCALLABLE-STANDARD-CLASS STANDARD-CLASS))|                  |(FAST-METHOD VALIDATE-SUPERCLASS (FUNCALLABLE-STANDARD-CLASS STANDARD-CLASS))|
919                  |(FAST-METHOD ALLOCATE-INSTANCE (FUNCALLABLE-STANDARD-CLASS))|                  |(FAST-METHOD ALLOCATE-INSTANCE (FUNCALLABLE-STANDARD-CLASS))|
920                  |(FAST-METHOD MAKE-INSTANCE (CLASS))|                  |(FAST-METHOD MAKE-INSTANCE (CLASS))|
921                    |(FAST-METHOD SAME-SPECIALIZER-P (CLASS CLASS))|
922                  |(FAST-METHOD ENSURE-CLASS-USING-CLASS (T PCL-CLASS))|                  |(FAST-METHOD ENSURE-CLASS-USING-CLASS (T PCL-CLASS))|
923                  CLASS-PREDICATE-NAME                  CLASS-PREDICATE-NAME
                 |PCL::STRUCTURE-OBJECT class predicate|  
                 |PCL::STRUCTURE-SLOT-DEFINITION class predicate|  
                 |PCL::STRUCTURE-DIRECT-SLOT-DEFINITION class predicate|  
924                  |PCL::STRUCTURE-EFFECTIVE-SLOT-DEFINITION class predicate|                  |PCL::STRUCTURE-EFFECTIVE-SLOT-DEFINITION class predicate|
925                    |PCL::STRUCTURE-DIRECT-SLOT-DEFINITION class predicate|
926                    |PCL::STRUCTURE-SLOT-DEFINITION class predicate|
927                    |PCL::STRUCTURE-OBJECT class predicate|
928                  |LISP::SYMBOL class predicate| CLASSP                  |LISP::SYMBOL class predicate| CLASSP
929                  |PCL::EFFECTIVE-SLOT-DEFINITION class predicate|                  |PCL::EFFECTIVE-SLOT-DEFINITION class predicate|
930                  |(COMBINED-METHOD SHARED-INITIALIZE)|                  |(COMBINED-METHOD SHARED-INITIALIZE)|
# Line 932  Line 934 
934                  |(READER READER-FUNCTION)| |(READER PREDICATE-NAME)|                  |(READER READER-FUNCTION)| |(READER PREDICATE-NAME)|
935                  |(READER READERS)| DESCRIBE-OBJECT                  |(READER READERS)| DESCRIBE-OBJECT
936                  |(READER CLASS-PRECEDENCE-LIST)|                  |(READER CLASS-PRECEDENCE-LIST)|
937                  |(READER ACCESSOR-FLAGS)| |(READER LOCATION)|                  |(READER ACCESSOR-FLAGS)| |(READER DOCUMENTATION)|
938                  |(READER DOCUMENTATION)| CLASS-INITIALIZE-INFO                  |(READER LOCATION)| CLASS-INITIALIZE-INFO
939                  |(SETF CLASS-SLOT-VALUE)| MAKE-WRITER-METHOD-FUNCTION                  |(SETF CLASS-SLOT-VALUE)| MAKE-WRITER-METHOD-FUNCTION
940                  |SETF PCL GF-DFUN-STATE|                  |SETF PCL GF-DFUN-STATE|
941                  |(READER INCOMPATIBLE-SUPERCLASS-LIST)|                  |(READER INCOMPATIBLE-SUPERCLASS-LIST)|
# Line 941  Line 943 
943                  |(READER IDENTITY-WITH-ONE-ARGUMENT)|                  |(READER IDENTITY-WITH-ONE-ARGUMENT)|
944                  |(SETF CLASS-INITIALIZE-INFO)|                  |(SETF CLASS-INITIALIZE-INFO)|
945                  |(READER PRETTY-ARGLIST)| |(READER DEFSTRUCT-FORM)|                  |(READER PRETTY-ARGLIST)| |(READER DEFSTRUCT-FORM)|
946                  |SETF PCL SLOT-DEFINITION-NAME| |SETF PCL CLASS-NAME|                  |SETF PCL CLASS-NAME| |SETF PCL SLOT-DEFINITION-NAME|
947                  |(WRITER READER-FUNCTION)|                  |(WRITER READER-FUNCTION)|
948                  |(SETF CLASS-DEFSTRUCT-CONSTRUCTOR)|                  |(SETF CLASS-DEFSTRUCT-CONSTRUCTOR)|
949                  |(WRITER PREDICATE-NAME)| |(WRITER READERS)|                  |(WRITER PREDICATE-NAME)| |(WRITER READERS)|
950                  |(READER WRITER-FUNCTION)| |(READER INITFUNCTION)|                  |(READER INITFUNCTION)| |(READER WRITER-FUNCTION)|
951                  INITIALIZE-INTERNAL-SLOT-FUNCTIONS                  INITIALIZE-INTERNAL-SLOT-FUNCTIONS
952                  |SETF PCL SLOT-DEFINITION-TYPE| |(READER WRITERS)|                  |SETF PCL SLOT-DEFINITION-TYPE|
953                  |(WRITER CLASS-PRECEDENCE-LIST)|                  |(WRITER CLASS-PRECEDENCE-LIST)| |(READER WRITERS)|
954                  |(WRITER ACCESSOR-FLAGS)| |(READER INITFORM)|                  |(WRITER ACCESSOR-FLAGS)| |(READER INITFORM)|
955                  METHOD-COMBINATION-P |(WRITER LOCATION)|                  METHOD-COMBINATION-P |(WRITER DOCUMENTATION)|
956                  |(WRITER DOCUMENTATION)|                  |(WRITER LOCATION)|
957                  |(CALL REAL-ENSURE-GF-USING-CLASS--GENERIC-FUNCTION)|                  |(CALL REAL-ENSURE-GF-USING-CLASS--GENERIC-FUNCTION)|
958                  |SETF PCL GENERIC-FUNCTION-METHODS|                  |SETF PCL METHOD-GENERIC-FUNCTION|
959                  |SETF PCL GENERIC-FUNCTION-METHOD-COMBINATION|                  |SETF PCL GENERIC-FUNCTION-METHOD-COMBINATION|
960                  |SETF PCL METHOD-GENERIC-FUNCTION| |(READER SLOT-NAME)|                  |SETF PCL GENERIC-FUNCTION-METHODS|
961                    |(READER SLOT-NAME)|
962                  |(WRITER INCOMPATIBLE-SUPERCLASS-LIST)|                  |(WRITER INCOMPATIBLE-SUPERCLASS-LIST)|
963                  |SETF PCL SLOT-ACCESSOR-STD-P|                  |SETF PCL SLOT-ACCESSOR-STD-P|
964                  |(CALL REAL-MAKE-METHOD-INITARGS-FORM)|                  |(CALL REAL-MAKE-METHOD-INITARGS-FORM)|
965                  |(READER ALLOCATION)| |(WRITER SPECIALIZERS)|                  |(READER ALLOCATION)| |(WRITER SPECIALIZERS)|
966                  |(CALL REAL-ENSURE-GF-USING-CLASS--NULL)|                  |(CALL REAL-ENSURE-GF-USING-CLASS--NULL)|
967                  |(WRITER IDENTITY-WITH-ONE-ARGUMENT)|                  |(WRITER IDENTITY-WITH-ONE-ARGUMENT)|
968                  |(SETF METHOD-GENERIC-FUNCTION)|                  |(SETF METHOD-GENERIC-FUNCTION)| LEGAL-SPECIALIZERS-P
969                  |(WRITER PRETTY-ARGLIST)| LEGAL-SPECIALIZERS-P                  |(WRITER PRETTY-ARGLIST)| |SETF PCL OBJECT-PLIST|
970                  |SETF PCL OBJECT-PLIST| |LISP::FLOAT class predicate|                  |LISP::FLOAT class predicate| |(WRITER DEFSTRUCT-FORM)|
971                  |(WRITER DEFSTRUCT-FORM)| |(READER FUNCTION)|                  |(READER GENERIC-FUNCTION)| |(READER FUNCTION)|
972                  |(READER GENERIC-FUNCTION)| |(READER LAMBDA-LIST)|                  |(READER LAMBDA-LIST)| |(READER SLOT-DEFINITION)|
                 |(READER SLOT-DEFINITION)|  
973                  |PCL::CLASS-PROTOTYPE-SPECIALIZER class predicate|                  |PCL::CLASS-PROTOTYPE-SPECIALIZER class predicate|
                 |SETF PCL SLOT-DEFINITION-INITFORM|  
974                  |SETF PCL CLASS-DEFSTRUCT-FORM|                  |SETF PCL CLASS-DEFSTRUCT-FORM|
975                    |SETF PCL SLOT-DEFINITION-INITFORM|
976                  |(READER CAN-PRECEDE-LIST)|                  |(READER CAN-PRECEDE-LIST)|
977                  |SETF PCL GENERIC-FUNCTION-METHOD-CLASS|                  |SETF PCL GENERIC-FUNCTION-METHOD-CLASS|
978                  |(READER PROTOTYPE)| |(WRITER WRITER-FUNCTION)|                  |(READER PROTOTYPE)| |(WRITER INITFUNCTION)|
979                  |(WRITER INITFUNCTION)| |(WRITER WRITERS)|                  |(WRITER WRITER-FUNCTION)| |(WRITER WRITERS)|
980                  SLOT-ACCESSOR-STD-P |(WRITER INITFORM)|                  SLOT-ACCESSOR-STD-P |(WRITER INITFORM)|
981                  |(READER DFUN-STATE)| |(READER FROM-DEFCLASS-P)|                  |(READER DFUN-STATE)| |(READER FROM-DEFCLASS-P)|
982                  |SETF PCL GF-PRETTY-ARGLIST|                  |SETF PCL GF-PRETTY-ARGLIST|
                 |SETF PCL SLOT-ACCESSOR-FUNCTION|  
                 |SETF PCL SLOT-DEFINITION-LOCATION|  
                 |SETF PCL SLOT-DEFINITION-READER-FUNCTION|  
                 |SETF PCL SLOT-DEFINITION-WRITER-FUNCTION|  
                 |SETF PCL SLOT-DEFINITION-BOUNDP-FUNCTION|  
                 |SETF PCL SLOT-DEFINITION-INTERNAL-READER-FUNCTION|  
                 |SETF PCL SLOT-DEFINITION-INTERNAL-WRITER-FUNCTION|  
                 |SETF PCL SLOT-DEFINITION-ALLOCATION|  
983                  |SETF PCL SLOT-DEFINITION-INITFUNCTION|                  |SETF PCL SLOT-DEFINITION-INITFUNCTION|
984                  |(WRITER SLOT-NAME)| |(BOUNDP NAME)|                  |SETF PCL SLOT-DEFINITION-ALLOCATION|
985                  |(READER FAST-FUNCTION)| |(WRITER ALLOCATION)|                  |SETF PCL SLOT-DEFINITION-INTERNAL-WRITER-FUNCTION|
986                  |(READER METHOD-CLASS)| |(SETF OBJECT-PLIST)|                  |SETF PCL SLOT-DEFINITION-INTERNAL-READER-FUNCTION|
987                  |(READER INTERNAL-WRITER-FUNCTION)|                  |SETF PCL SLOT-DEFINITION-BOUNDP-FUNCTION|
988                    |SETF PCL SLOT-DEFINITION-WRITER-FUNCTION|
989                    |SETF PCL SLOT-DEFINITION-READER-FUNCTION|
990                    |SETF PCL SLOT-DEFINITION-LOCATION|
991                    |SETF PCL SLOT-ACCESSOR-FUNCTION| |(WRITER SLOT-NAME)|
992                    |(BOUNDP NAME)| |(WRITER ALLOCATION)|
993                    |(READER FAST-FUNCTION)| |(READER METHOD-CLASS)|
994                    |(SETF OBJECT-PLIST)| |(READER METHOD-COMBINATION)|
995                  |(READER INTERNAL-READER-FUNCTION)|                  |(READER INTERNAL-READER-FUNCTION)|
996                  |(READER METHOD-COMBINATION)|                  |(READER INTERNAL-WRITER-FUNCTION)|
997                  METHOD-COMBINATION-OPTIONS |(READER DIRECT-SLOTS)|                  METHOD-COMBINATION-OPTIONS |(READER DIRECT-METHODS)|
998                  |(READER DIRECT-METHODS)|                  |(READER DIRECT-SLOTS)|
999                  |SETF PCL SLOT-DEFINITION-READERS| |(WRITER FUNCTION)|                  |SETF PCL SLOT-DEFINITION-READERS|
1000                  |(WRITER GENERIC-FUNCTION)| |(READER BOUNDP-FUNCTION)|                  |(READER BOUNDP-FUNCTION)| |(WRITER GENERIC-FUNCTION)|
1001                  |SETF PCL DOCUMENTATION| |(READER DIRECT-SUBCLASSES)|                  |(WRITER FUNCTION)| |(READER DIRECT-SUPERCLASSES)|
1002                  |(READER DIRECT-SUPERCLASSES)| |(WRITER LAMBDA-LIST)|                  |(READER DIRECT-SUBCLASSES)| |SETF PCL DOCUMENTATION|
1003                  |LISP::LIST class predicate|                  |(WRITER LAMBDA-LIST)| |LISP::LIST class predicate|
1004                  FUNCALLABLE-STANDARD-CLASS-P                  FUNCALLABLE-STANDARD-CLASS-P |(BOUNDP CLASS)|
1005                  |(FAST-WRITER-METHOD SLOT-OBJECT METHOD)|                  |(FAST-WRITER-METHOD SLOT-OBJECT METHOD)|
1006                  |(BOUNDP CLASS)| |(WRITER SLOT-DEFINITION)|                  |(WRITER SLOT-DEFINITION)| |(READER OPTIONS)|
1007                  |(READER METHODS)| |(READER OPTIONS)|                  |(READER METHODS)| |(WRITER CAN-PRECEDE-LIST)|
                 |(WRITER CAN-PRECEDE-LIST)|  
                 |SETF PCL SLOT-DEFINITION-CLASS|  
1008                  |SETF PCL SLOT-VALUE-USING-CLASS|                  |SETF PCL SLOT-VALUE-USING-CLASS|
1009                  |(FAST-WRITER-METHOD SLOT-OBJECT DEFSTRUCT-ACCESSOR-SYMBOL)|                  |SETF PCL SLOT-DEFINITION-CLASS|
1010                  |(FAST-WRITER-METHOD STRUCTURE-SLOT-DEFINITION DEFSTRUCT-ACCESSOR-SYMBOL)|                  |(FAST-WRITER-METHOD STRUCTURE-SLOT-DEFINITION DEFSTRUCT-ACCESSOR-SYMBOL)|
1011                  |(WRITER PROTOTYPE)| |(BOUNDP TYPE)| |(BOUNDP OBJECT)|                  |(FAST-WRITER-METHOD SLOT-OBJECT DEFSTRUCT-ACCESSOR-SYMBOL)|
1012                  CLASS-CAN-PRECEDE-LIST |SETF PCL CLASS-DIRECT-SLOTS|                  |(WRITER PROTOTYPE)| |(BOUNDP OBJECT)| |(BOUNDP TYPE)|
1013                  |SETF PCL CLASS-SLOTS| SLOT-ACCESSOR-FUNCTION                  CLASS-CAN-PRECEDE-LIST |SETF PCL CLASS-SLOTS|
1014                    |SETF PCL CLASS-DIRECT-SLOTS| SLOT-ACCESSOR-FUNCTION
1015                  |(BOUNDP PLIST)|                  |(BOUNDP PLIST)|
1016                  |SETF PCL CLASS-INCOMPATIBLE-SUPERCLASS-LIST|                  |SETF PCL CLASS-INCOMPATIBLE-SUPERCLASS-LIST|
1017                  |SETF PCL SLOT-DEFINITION-WRITERS|                  |SETF PCL SLOT-DEFINITION-WRITERS|
# Line 1019  Line 1019 
1019                  |(WRITER DFUN-STATE)| |(WRITER FROM-DEFCLASS-P)|                  |(WRITER DFUN-STATE)| |(WRITER FROM-DEFCLASS-P)|
1020                  |(BOUNDP SLOTS)| SLOT-CLASS-P                  |(BOUNDP SLOTS)| SLOT-CLASS-P
1021                  MAKE-READER-METHOD-FUNCTION LEGAL-METHOD-FUNCTION-P                  MAKE-READER-METHOD-FUNCTION LEGAL-METHOD-FUNCTION-P
                 |(FAST-WRITER-METHOD SLOT-OBJECT INITIALIZE-INFO)|  
                 |(FAST-WRITER-METHOD SLOT-CLASS INITIALIZE-INFO)|  
1022                  |(FAST-WRITER-METHOD SLOT-OBJECT ARG-INFO)|                  |(FAST-WRITER-METHOD SLOT-OBJECT ARG-INFO)|
1023                    |(FAST-WRITER-METHOD SLOT-CLASS INITIALIZE-INFO)|
1024                    |(FAST-WRITER-METHOD SLOT-OBJECT INITIALIZE-INFO)|
1025                  |PCL::PLIST-MIXIN class predicate|                  |PCL::PLIST-MIXIN class predicate|
1026                  |(WRITER FAST-FUNCTION)| |(WRITER METHOD-CLASS)|                  |(WRITER FAST-FUNCTION)| |(WRITER METHOD-CLASS)|
1027                  |(FAST-WRITER-METHOD SLOT-OBJECT WRAPPER)|                  |(FAST-WRITER-METHOD SLOT-OBJECT WRAPPER)|
1028                  |(WRITER INTERNAL-WRITER-FUNCTION)|                  |(WRITER METHOD-COMBINATION)|
1029                  |(WRITER INTERNAL-READER-FUNCTION)|                  |(WRITER INTERNAL-READER-FUNCTION)|
1030                  |(WRITER METHOD-COMBINATION)| GET-METHOD                  |(WRITER INTERNAL-WRITER-FUNCTION)| GET-METHOD
1031                  |(WRITER DIRECT-SLOTS)| |(WRITER DIRECT-METHODS)|                  |(WRITER DIRECT-METHODS)| |(WRITER DIRECT-SLOTS)|
                 |(FAST-WRITER-METHOD SLOT-OBJECT INITARGS)|  
1032                  |(FAST-WRITER-METHOD SLOT-DEFINITION INITARGS)|                  |(FAST-WRITER-METHOD SLOT-DEFINITION INITARGS)|
1033                  |(FAST-WRITER-METHOD SLOT-OBJECT OPERATOR)|                  |(FAST-WRITER-METHOD SLOT-OBJECT INITARGS)|
                 |(FAST-WRITER-METHOD SLOT-OBJECT DEFSTRUCT-CONSTRUCTOR)|  
1034                  |(FAST-WRITER-METHOD STRUCTURE-CLASS DEFSTRUCT-CONSTRUCTOR)|                  |(FAST-WRITER-METHOD STRUCTURE-CLASS DEFSTRUCT-CONSTRUCTOR)|
1035                  |(WRITER BOUNDP-FUNCTION)| |(WRITER DIRECT-SUBCLASSES)|                  |(FAST-WRITER-METHOD SLOT-OBJECT DEFSTRUCT-CONSTRUCTOR)|
1036                    |(FAST-WRITER-METHOD SLOT-OBJECT OPERATOR)|
1037                    |(WRITER BOUNDP-FUNCTION)|
1038                  |(WRITER DIRECT-SUPERCLASSES)|                  |(WRITER DIRECT-SUPERCLASSES)|
1039                    |(WRITER DIRECT-SUBCLASSES)|
1040                  |(FAST-WRITER-METHOD SLOT-OBJECT CLASS-EQ-SPECIALIZER)|                  |(FAST-WRITER-METHOD SLOT-OBJECT CLASS-EQ-SPECIALIZER)|
1041                  |(WRITER METHODS)| |(WRITER OPTIONS)|                  |(WRITER OPTIONS)| |(WRITER METHODS)|
1042                  SHORT-METHOD-COMBINATION-P GF-ARG-INFO                  SHORT-METHOD-COMBINATION-P GF-ARG-INFO
1043                  SPECIALIZER-METHOD-TABLE MAKE-METHOD-INITARGS-FORM                  SPECIALIZER-METHOD-TABLE MAKE-METHOD-INITARGS-FORM
1044                  CLASS-DEFSTRUCT-FORM |LISP::INTEGER class predicate|                  CLASS-DEFSTRUCT-FORM
                 |(FAST-READER-METHOD SLOT-OBJECT PREDICATE-NAME)|  
                 |(FAST-READER-METHOD CLASS PREDICATE-NAME)|  
                 |(FAST-READER-METHOD CLASS NAME)|  
                 |(FAST-READER-METHOD SLOT-DEFINITION NAME)|  
                 |(FAST-READER-METHOD SLOT-OBJECT SLOT-NAME)|  
                 |(FAST-READER-METHOD STANDARD-ACCESSOR-METHOD SLOT-NAME)|  
                 |(FAST-READER-METHOD SLOT-OBJECT DFUN-STATE)|  
                 |(FAST-READER-METHOD STANDARD-GENERIC-FUNCTION DFUN-STATE)|  
                 |(FAST-READER-METHOD SLOT-OBJECT NAME)|  
1045                  |(FAST-READER-METHOD STANDARD-GENERIC-FUNCTION NAME)|                  |(FAST-READER-METHOD STANDARD-GENERIC-FUNCTION NAME)|
1046                  GF-PRETTY-ARGLIST SAME-SPECIALIZER-P                  |(FAST-READER-METHOD SLOT-OBJECT NAME)|
1047                  SLOT-DEFINITION-BOUNDP-FUNCTION                  |(FAST-READER-METHOD STANDARD-GENERIC-FUNCTION DFUN-STATE)|
1048                  SLOT-DEFINITION-WRITER-FUNCTION                  |(FAST-READER-METHOD SLOT-OBJECT DFUN-STATE)|
1049                  SLOT-DEFINITION-READER-FUNCTION                  |(FAST-READER-METHOD STANDARD-ACCESSOR-METHOD SLOT-NAME)|
1050                  SLOT-DEFINITION-INTERNAL-WRITER-FUNCTION                  |(FAST-READER-METHOD SLOT-OBJECT SLOT-NAME)|
1051                    |(FAST-READER-METHOD SLOT-DEFINITION NAME)|
1052                    |(FAST-READER-METHOD CLASS NAME)|
1053                    |(FAST-READER-METHOD CLASS PREDICATE-NAME)|
1054                    |(FAST-READER-METHOD SLOT-OBJECT PREDICATE-NAME)|
1055                    |LISP::INTEGER class predicate| GF-PRETTY-ARGLIST
1056                    SAME-SPECIALIZER-P
1057                  SLOT-DEFINITION-INTERNAL-READER-FUNCTION                  SLOT-DEFINITION-INTERNAL-READER-FUNCTION
1058                  |(FAST-READER-METHOD SLOT-OBJECT CLASS)|                  SLOT-DEFINITION-INTERNAL-WRITER-FUNCTION
1059                  |(FAST-READER-METHOD SLOT-DEFINITION CLASS)|                  SLOT-DEFINITION-READER-FUNCTION
1060                  |(FAST-READER-METHOD SLOT-OBJECT ACCESSOR-FLAGS)|                  SLOT-DEFINITION-WRITER-FUNCTION
1061                  |(FAST-READER-METHOD SLOT-OBJECT METHOD-CLASS)|                  SLOT-DEFINITION-BOUNDP-FUNCTION
1062                  |(FAST-READER-METHOD STANDARD-GENERIC-FUNCTION METHOD-CLASS)|                  |(FAST-READER-METHOD STANDARD-GENERIC-FUNCTION METHOD-CLASS)|
1063                  |(FAST-READER-METHOD TRACED-METHOD GENERIC-FUNCTION)|                  |(FAST-READER-METHOD SLOT-OBJECT METHOD-CLASS)|
1064                  |(FAST-READER-METHOD TRACED-METHOD FUNCTION)|                  |(FAST-READER-METHOD SLOT-OBJECT ACCESSOR-FLAGS)|
1065                  |(FAST-READER-METHOD LONG-METHOD-COMBINATION FUNCTION)|                  |(FAST-READER-METHOD SLOT-DEFINITION CLASS)|
1066                  |(FAST-READER-METHOD SLOT-OBJECT INITFUNCTION)|                  |(FAST-READER-METHOD SLOT-OBJECT CLASS)|
                 |(FAST-READER-METHOD SLOT-DEFINITION INITFUNCTION)|  
                 |(FAST-READER-METHOD SLOT-OBJECT ALLOCATION)|  
                 |(FAST-READER-METHOD STANDARD-SLOT-DEFINITION ALLOCATION)|  
                 |(FAST-READER-METHOD SLOT-OBJECT INTERNAL-WRITER-FUNCTION)|  
                 |(FAST-READER-METHOD STRUCTURE-SLOT-DEFINITION INTERNAL-WRITER-FUNCTION)|  
                 |(FAST-READER-METHOD SLOT-OBJECT INTERNAL-READER-FUNCTION)|  
                 |(FAST-READER-METHOD STRUCTURE-SLOT-DEFINITION INTERNAL-READER-FUNCTION)|  
                 |(FAST-READER-METHOD SLOT-OBJECT BOUNDP-FUNCTION)|  
                 |(FAST-READER-METHOD EFFECTIVE-SLOT-DEFINITION BOUNDP-FUNCTION)|  
                 |(FAST-READER-METHOD SLOT-OBJECT WRITER-FUNCTION)|  
                 |(FAST-READER-METHOD EFFECTIVE-SLOT-DEFINITION WRITER-FUNCTION)|  
                 |(FAST-READER-METHOD SLOT-OBJECT READER-FUNCTION)|  
                 |(FAST-READER-METHOD EFFECTIVE-SLOT-DEFINITION READER-FUNCTION)|  
                 |(FAST-READER-METHOD SLOT-OBJECT LOCATION)|  
                 |(FAST-READER-METHOD STANDARD-EFFECTIVE-SLOT-DEFINITION LOCATION)|  
                 |(FAST-READER-METHOD SLOT-OBJECT FAST-FUNCTION)|  
                 |(FAST-READER-METHOD STANDARD-METHOD FAST-FUNCTION)|  
                 |(FAST-READER-METHOD SLOT-OBJECT FUNCTION)|  
                 |(FAST-READER-METHOD SLOT-OBJECT GENERIC-FUNCTION)|  
                 |(FAST-READER-METHOD STANDARD-METHOD GENERIC-FUNCTION)|  
                 |(FAST-READER-METHOD SLOT-OBJECT SLOT-DEFINITION)|  
                 |(FAST-READER-METHOD STANDARD-ACCESSOR-METHOD SLOT-DEFINITION)|  
                 |(FAST-READER-METHOD SLOT-OBJECT METHOD-COMBINATION)|  
                 |(FAST-READER-METHOD STANDARD-GENERIC-FUNCTION METHOD-COMBINATION)|  
                 |(FAST-READER-METHOD SLOT-OBJECT DOCUMENTATION)|  
1067                  |(FAST-READER-METHOD STANDARD-METHOD-COMBINATION DOCUMENTATION)|                  |(FAST-READER-METHOD STANDARD-METHOD-COMBINATION DOCUMENTATION)|
1068                  |(FAST-READER-METHOD SLOT-OBJECT WRITERS)|                  |(FAST-READER-METHOD SLOT-OBJECT DOCUMENTATION)|
1069                  |(FAST-READER-METHOD SLOT-DEFINITION WRITERS)|                  |(FAST-READER-METHOD STANDARD-GENERIC-FUNCTION METHOD-COMBINATION)|
1070                  |(FAST-READER-METHOD SLOT-OBJECT READERS)|                  |(FAST-READER-METHOD SLOT-OBJECT METHOD-COMBINATION)|
1071                  |(FAST-READER-METHOD SLOT-DEFINITION READERS)|                  |(FAST-READER-METHOD STANDARD-ACCESSOR-METHOD SLOT-DEFINITION)|
1072                  |(FAST-READER-METHOD SLOT-OBJECT SPECIALIZERS)|                  |(FAST-READER-METHOD SLOT-OBJECT SLOT-DEFINITION)|
1073                    |(FAST-READER-METHOD STANDARD-METHOD GENERIC-FUNCTION)|
1074                    |(FAST-READER-METHOD SLOT-OBJECT GENERIC-FUNCTION)|
1075                    |(FAST-READER-METHOD SLOT-OBJECT FUNCTION)|
1076                    |(FAST-READER-METHOD STANDARD-METHOD FAST-FUNCTION)|
1077                    |(FAST-READER-METHOD SLOT-OBJECT FAST-FUNCTION)|
1078                    |(FAST-READER-METHOD STANDARD-EFFECTIVE-SLOT-DEFINITION LOCATION)|
1079                    |(FAST-READER-METHOD SLOT-OBJECT LOCATION)|
1080                    |(FAST-READER-METHOD EFFECTIVE-SLOT-DEFINITION READER-FUNCTION)|
1081                    |(FAST-READER-METHOD SLOT-OBJECT READER-FUNCTION)|
1082                    |(FAST-READER-METHOD EFFECTIVE-SLOT-DEFINITION WRITER-FUNCTION)|
1083                    |(FAST-READER-METHOD SLOT-OBJECT WRITER-FUNCTION)|
1084                    |(FAST-READER-METHOD EFFECTIVE-SLOT-DEFINITION BOUNDP-FUNCTION)|
1085                    |(FAST-READER-METHOD SLOT-OBJECT BOUNDP-FUNCTION)|
1086                    |(FAST-READER-METHOD STRUCTURE-SLOT-DEFINITION INTERNAL-READER-FUNCTION)|
1087                    |(FAST-READER-METHOD SLOT-OBJECT INTERNAL-READER-FUNCTION)|
1088                    |(FAST-READER-METHOD STRUCTURE-SLOT-DEFINITION INTERNAL-WRITER-FUNCTION)|
1089                    |(FAST-READER-METHOD SLOT-OBJECT INTERNAL-WRITER-FUNCTION)|
1090                    |(FAST-READER-METHOD STANDARD-SLOT-DEFINITION ALLOCATION)|
1091                    |(FAST-READER-METHOD SLOT-OBJECT ALLOCATION)|
1092                    |(FAST-READER-METHOD SLOT-DEFINITION INITFUNCTION)|
1093                    |(FAST-READER-METHOD SLOT-OBJECT INITFUNCTION)|
1094                    |(FAST-READER-METHOD LONG-METHOD-COMBINATION FUNCTION)|
1095                    |(FAST-READER-METHOD TRACED-METHOD FUNCTION)|
1096                    |(FAST-READER-METHOD TRACED-METHOD GENERIC-FUNCTION)|
1097                  |(FAST-READER-METHOD STANDARD-METHOD SPECIALIZERS)|                  |(FAST-READER-METHOD STANDARD-METHOD SPECIALIZERS)|
1098                  |(FAST-READER-METHOD SPECIALIZER TYPE)|                  |(FAST-READER-METHOD SLOT-OBJECT SPECIALIZERS)|
1099                  |(FAST-READER-METHOD SLOT-OBJECT PROTOTYPE)|                  |(FAST-READER-METHOD SLOT-DEFINITION READERS)|
1100                  |(FAST-READER-METHOD PCL-CLASS PROTOTYPE)|                  |(FAST-READER-METHOD SLOT-OBJECT READERS)|
1101                  |(FAST-READER-METHOD SLOT-DEFINITION TYPE)|                  |(FAST-READER-METHOD SLOT-DEFINITION WRITERS)|
1102                  |(FAST-READER-METHOD SLOT-OBJECT TYPE)|                  |(FAST-READER-METHOD SLOT-OBJECT WRITERS)|
                 |(FAST-READER-METHOD STANDARD-METHOD-COMBINATION TYPE)|  
                 |(FAST-READER-METHOD SHORT-METHOD-COMBINATION IDENTITY-WITH-ONE-ARGUMENT)|  
                 |(FAST-READER-METHOD SLOT-OBJECT IDENTITY-WITH-ONE-ARGUMENT)|  
                 |(FAST-READER-METHOD CLASS-EQ-SPECIALIZER OBJECT)|  
                 |(FAST-READER-METHOD CLASS-PROTOTYPE-SPECIALIZER OBJECT)|  
                 |(FAST-READER-METHOD SLOT-OBJECT OBJECT)|  
1103                  |(FAST-READER-METHOD EQL-SPECIALIZER OBJECT)|                  |(FAST-READER-METHOD EQL-SPECIALIZER OBJECT)|
1104                  |(FAST-READER-METHOD SLOT-OBJECT DEFSTRUCT-FORM)|                  |(FAST-READER-METHOD SLOT-OBJECT OBJECT)|
1105                  |(FAST-READER-METHOD STRUCTURE-CLASS DEFSTRUCT-FORM)|                  |(FAST-READER-METHOD CLASS-PROTOTYPE-SPECIALIZER OBJECT)|
1106                  |(FAST-READER-METHOD SLOT-OBJECT INITFORM)|                  |(FAST-READER-METHOD CLASS-EQ-SPECIALIZER OBJECT)|
1107                    |(FAST-READER-METHOD SLOT-OBJECT IDENTITY-WITH-ONE-ARGUMENT)|
1108                    |(FAST-READER-METHOD SHORT-METHOD-COMBINATION IDENTITY-WITH-ONE-ARGUMENT)|
1109                    |(FAST-READER-METHOD STANDARD-METHOD-COMBINATION TYPE)|
1110                    |(FAST-READER-METHOD SLOT-OBJECT TYPE)|
1111                    |(FAST-READER-METHOD SLOT-DEFINITION TYPE)|
1112                    |(FAST-READER-METHOD PCL-CLASS PROTOTYPE)|
1113                    |(FAST-READER-METHOD SLOT-OBJECT PROTOTYPE)|
1114                    |(FAST-READER-METHOD SPECIALIZER TYPE)|
1115                  |(FAST-READER-METHOD SLOT-DEFINITION INITFORM)|                  |(FAST-READER-METHOD SLOT-DEFINITION INITFORM)|
1116                  |(FAST-READER-METHOD SLOT-OBJECT PLIST)|                  |(FAST-READER-METHOD SLOT-OBJECT INITFORM)|
1117                  |(FAST-READER-METHOD PLIST-MIXIN PLIST)|                  |(FAST-READER-METHOD STRUCTURE-CLASS DEFSTRUCT-FORM)|
1118                  |(FAST-READER-METHOD SLOT-OBJECT INCOMPATIBLE-SUPERCLASS-LIST)|                  |(FAST-READER-METHOD SLOT-OBJECT DEFSTRUCT-FORM)|
                 |(FAST-READER-METHOD PCL-CLASS INCOMPATIBLE-SUPERCLASS-LIST)|  
                 |(FAST-READER-METHOD SLOT-OBJECT CAN-PRECEDE-LIST)|  
                 |(FAST-READER-METHOD PCL-CLASS CAN-PRECEDE-LIST)|  
                 |(FAST-READER-METHOD SLOT-OBJECT CLASS-PRECEDENCE-LIST)|  
                 |(FAST-READER-METHOD PCL-CLASS CLASS-PRECEDENCE-LIST)|  
                 |(FAST-READER-METHOD SLOT-OBJECT LAMBDA-LIST)|  
                 |(FAST-READER-METHOD STANDARD-METHOD LAMBDA-LIST)|  
                 |(FAST-READER-METHOD SLOT-OBJECT PRETTY-ARGLIST)|  
1119                  |(FAST-READER-METHOD STANDARD-GENERIC-FUNCTION PRETTY-ARGLIST)|                  |(FAST-READER-METHOD STANDARD-GENERIC-FUNCTION PRETTY-ARGLIST)|
1120                  |(FAST-READER-METHOD SLOT-OBJECT DIRECT-METHODS)|                  |(FAST-READER-METHOD SLOT-OBJECT PRETTY-ARGLIST)|
1121                  |(FAST-READER-METHOD SLOT-OBJECT SLOTS)|                  |(FAST-READER-METHOD STANDARD-METHOD LAMBDA-LIST)|
1122                  |(FAST-READER-METHOD SLOT-CLASS SLOTS)|                  |(FAST-READER-METHOD SLOT-OBJECT LAMBDA-LIST)|
1123                  |(FAST-READER-METHOD SLOT-OBJECT DIRECT-SLOTS)|                  |(FAST-READER-METHOD PCL-CLASS CLASS-PRECEDENCE-LIST)|
1124                  |(FAST-READER-METHOD SLOT-CLASS DIRECT-SLOTS)|                  |(FAST-READER-METHOD SLOT-OBJECT CLASS-PRECEDENCE-LIST)|
1125                  |(FAST-READER-METHOD SLOT-OBJECT METHODS)|                  |(FAST-READER-METHOD PCL-CLASS CAN-PRECEDE-LIST)|
1126                  |(FAST-READER-METHOD STANDARD-GENERIC-FUNCTION METHODS)|                  |(FAST-READER-METHOD SLOT-OBJECT CAN-PRECEDE-LIST)|
1127                  |(FAST-READER-METHOD SLOT-OBJECT OPTIONS)|                  |(FAST-READER-METHOD PCL-CLASS INCOMPATIBLE-SUPERCLASS-LIST)|
1128                  |(FAST-READER-METHOD STANDARD-METHOD-COMBINATION OPTIONS)|                  |(FAST-READER-METHOD SLOT-OBJECT INCOMPATIBLE-SUPERCLASS-LIST)|
1129                    |(FAST-READER-METHOD PLIST-MIXIN PLIST)|
1130                    |(FAST-READER-METHOD SLOT-OBJECT PLIST)|
1131                  |(FAST-READER-METHOD SLOT-OBJECT FROM-DEFCLASS-P)|                  |(FAST-READER-METHOD SLOT-OBJECT FROM-DEFCLASS-P)|
1132                  |(FAST-READER-METHOD SLOT-OBJECT DIRECT-SUBCLASSES)|                  |(FAST-READER-METHOD STANDARD-METHOD-COMBINATION OPTIONS)|
1133                  |(FAST-READER-METHOD CLASS DIRECT-SUBCLASSES)|                  |(FAST-READER-METHOD SLOT-OBJECT OPTIONS)|
1134                  |(FAST-READER-METHOD SLOT-OBJECT DIRECT-SUPERCLASSES)|                  |(FAST-READER-METHOD STANDARD-GENERIC-FUNCTION METHODS)|
1135                    |(FAST-READER-METHOD SLOT-OBJECT METHODS)|
1136                    |(FAST-READER-METHOD SLOT-CLASS DIRECT-SLOTS)|
1137                    |(FAST-READER-METHOD SLOT-OBJECT DIRECT-SLOTS)|
1138                    |(FAST-READER-METHOD SLOT-CLASS SLOTS)|
1139                    |(FAST-READER-METHOD SLOT-OBJECT SLOTS)|
1140                    |(FAST-READER-METHOD SLOT-OBJECT DIRECT-METHODS)|
1141                  |(FAST-READER-METHOD CLASS DIRECT-SUPERCLASSES)|                  |(FAST-READER-METHOD CLASS DIRECT-SUPERCLASSES)|
1142                    |(FAST-READER-METHOD SLOT-OBJECT DIRECT-SUPERCLASSES)|
1143                    |(FAST-READER-METHOD CLASS DIRECT-SUBCLASSES)|
1144                    |(FAST-READER-METHOD SLOT-OBJECT DIRECT-SUBCLASSES)|
1145                  SLOT-DEFINITION-CLASS EQL-SPECIALIZER-OBJECT                  SLOT-DEFINITION-CLASS EQL-SPECIALIZER-OBJECT
1146                  |PCL::DIRECT-SLOT-DEFINITION class predicate|                  |PCL::DIRECT-SLOT-DEFINITION class predicate|
1147                  CLASS-CONSTRUCTORS |(BOUNDP WRAPPER)| SLOTS-TO-INSPECT                  CLASS-CONSTRUCTORS |(BOUNDP WRAPPER)| SLOTS-TO-INSPECT
                 |(FAST-BOUNDP-METHOD SLOT-OBJECT PREDICATE-NAME)|  
                 |(FAST-BOUNDP-METHOD SLOT-OBJECT SLOT-NAME)|  
                 |(FAST-BOUNDP-METHOD SLOT-OBJECT DFUN-STATE)|  
1148                  |(FAST-BOUNDP-METHOD SLOT-OBJECT NAME)|                  |(FAST-BOUNDP-METHOD SLOT-OBJECT NAME)|
1149                    |(FAST-BOUNDP-METHOD SLOT-OBJECT DFUN-STATE)|
1150                    |(FAST-BOUNDP-METHOD SLOT-OBJECT SLOT-NAME)|
1151                    |(FAST-BOUNDP-METHOD SLOT-OBJECT PREDICATE-NAME)|
1152                  |(BOUNDP DEFSTRUCT-ACCESSOR-SYMBOL)|                  |(BOUNDP DEFSTRUCT-ACCESSOR-SYMBOL)|
1153                  SPECIALIZER-DIRECT-GENERIC-FUNCTIONS                  SPECIALIZER-DIRECT-GENERIC-FUNCTIONS
1154                  |(BOUNDP CLASS-EQ-SPECIALIZER)|                  |(BOUNDP CLASS-EQ-SPECIALIZER)|
1155                  |(SETF SLOT-DEFINITION-NAME)| ADD-WRITER-METHOD                  |(SETF SLOT-DEFINITION-NAME)| ADD-WRITER-METHOD
                 |(FAST-BOUNDP-METHOD SLOT-OBJECT CLASS)|  
                 |(FAST-BOUNDP-METHOD SLOT-OBJECT ACCESSOR-FLAGS)|  
1156                  |(FAST-BOUNDP-METHOD SLOT-OBJECT METHOD-CLASS)|                  |(FAST-BOUNDP-METHOD SLOT-OBJECT METHOD-CLASS)|
1157                  |(FAST-BOUNDP-METHOD SLOT-OBJECT INITFUNCTION)|                  |(FAST-BOUNDP-METHOD SLOT-OBJECT ACCESSOR-FLAGS)|
1158                  |(FAST-BOUNDP-METHOD SLOT-OBJECT ALLOCATION)|                  |(FAST-BOUNDP-METHOD SLOT-OBJECT CLASS)|
                 |(FAST-BOUNDP-METHOD SLOT-OBJECT INTERNAL-WRITER-FUNCTION)|  
                 |(FAST-BOUNDP-METHOD SLOT-OBJECT INTERNAL-READER-FUNCTION)|  
                 |(FAST-BOUNDP-METHOD SLOT-OBJECT BOUNDP-FUNCTION)|  
                 |(FAST-BOUNDP-METHOD SLOT-OBJECT WRITER-FUNCTION)|  
                 |(FAST-BOUNDP-METHOD SLOT-OBJECT READER-FUNCTION)|  
                 |(FAST-BOUNDP-METHOD SLOT-OBJECT LOCATION)|  
                 |(FAST-BOUNDP-METHOD SLOT-OBJECT FAST-FUNCTION)|  
                 |(FAST-BOUNDP-METHOD SLOT-OBJECT FUNCTION)|  
                 |(FAST-BOUNDP-METHOD SLOT-OBJECT GENERIC-FUNCTION)|  
                 |(FAST-BOUNDP-METHOD SLOT-OBJECT SLOT-DEFINITION)|  
                 |(FAST-BOUNDP-METHOD SLOT-OBJECT METHOD-COMBINATION)|  
1159                  |(FAST-BOUNDP-METHOD SLOT-OBJECT DOCUMENTATION)|                  |(FAST-BOUNDP-METHOD SLOT-OBJECT DOCUMENTATION)|
1160                    |(FAST-BOUNDP-METHOD SLOT-OBJECT METHOD-COMBINATION)|
1161                    |(FAST-BOUNDP-METHOD SLOT-OBJECT SLOT-DEFINITION)|
1162                    |(FAST-BOUNDP-METHOD SLOT-OBJECT GENERIC-FUNCTION)|
1163                    |(FAST-BOUNDP-METHOD SLOT-OBJECT FUNCTION)|
1164                    |(FAST-BOUNDP-METHOD SLOT-OBJECT FAST-FUNCTION)|
1165                    |(FAST-BOUNDP-METHOD SLOT-OBJECT LOCATION)|
1166                    |(FAST-BOUNDP-METHOD SLOT-OBJECT READER-FUNCTION)|
1167                    |(FAST-BOUNDP-METHOD SLOT-OBJECT WRITER-FUNCTION)|
1168                    |(FAST-BOUNDP-METHOD SLOT-OBJECT BOUNDP-FUNCTION)|
1169                    |(FAST-BOUNDP-METHOD SLOT-OBJECT INTERNAL-READER-FUNCTION)|
1170                    |(FAST-BOUNDP-METHOD SLOT-OBJECT INTERNAL-WRITER-FUNCTION)|
1171                    |(FAST-BOUNDP-METHOD SLOT-OBJECT ALLOCATION)|
1172                    |(FAST-BOUNDP-METHOD SLOT-OBJECT INITFUNCTION)|
1173                  |(BOUNDP OPERATOR)| |(BOUNDP ARG-INFO)|                  |(BOUNDP OPERATOR)| |(BOUNDP ARG-INFO)|
                 |(FAST-BOUNDP-METHOD SLOT-OBJECT WRITERS)|  
                 |(FAST-BOUNDP-METHOD SLOT-OBJECT READERS)|  
1174                  |(FAST-BOUNDP-METHOD SLOT-OBJECT SPECIALIZERS)|                  |(FAST-BOUNDP-METHOD SLOT-OBJECT SPECIALIZERS)|
1175                  |(FAST-BOUNDP-METHOD SLOT-OBJECT PROTOTYPE)|                  |(FAST-BOUNDP-METHOD SLOT-OBJECT READERS)|
1176                  |(FAST-BOUNDP-METHOD SLOT-OBJECT TYPE)|                  |(FAST-BOUNDP-METHOD SLOT-OBJECT WRITERS)|
1177                  |(FAST-BOUNDP-METHOD SLOT-OBJECT OBJECT)|                  |(FAST-BOUNDP-METHOD SLOT-OBJECT OBJECT)|
1178                  |(FAST-BOUNDP-METHOD SLOT-OBJECT DEFSTRUCT-FORM)|                  |(FAST-BOUNDP-METHOD SLOT-OBJECT TYPE)|
1179                    |(FAST-BOUNDP-METHOD SLOT-OBJECT PROTOTYPE)|
1180                  |(FAST-BOUNDP-METHOD SLOT-OBJECT INITFORM)|                  |(FAST-BOUNDP-METHOD SLOT-OBJECT INITFORM)|
1181                  |(SETF SLOT-VALUE-USING-CLASS)|                  |(FAST-BOUNDP-METHOD SLOT-OBJECT DEFSTRUCT-FORM)|
1182                  |(SETF SLOT-DEFINITION-CLASS)|                  |(SETF SLOT-DEFINITION-CLASS)|
1183                  |(SETF SLOT-ACCESSOR-FUNCTION)|                  |(SETF SLOT-VALUE-USING-CLASS)|
                 |(SETF SLOT-DEFINITION-INITFUNCTION)|  
                 |(SETF SLOT-DEFINITION-ALLOCATION)|  
                 |(SETF SLOT-DEFINITION-INTERNAL-WRITER-FUNCTION)|  
                 |(SETF SLOT-DEFINITION-INTERNAL-READER-FUNCTION)|  
                 |(SETF SLOT-DEFINITION-BOUNDP-FUNCTION)|  
                 |(SETF SLOT-DEFINITION-WRITER-FUNCTION)|  
                 |(SETF SLOT-DEFINITION-READER-FUNCTION)|  
1184                  |(SETF SLOT-DEFINITION-LOCATION)|                  |(SETF SLOT-DEFINITION-LOCATION)|
1185                    |(SETF SLOT-DEFINITION-READER-FUNCTION)|
1186                    |(SETF SLOT-DEFINITION-WRITER-FUNCTION)|
1187                    |(SETF SLOT-DEFINITION-BOUNDP-FUNCTION)|
1188                    |(SETF SLOT-DEFINITION-INTERNAL-READER-FUNCTION)|
1189                    |(SETF SLOT-DEFINITION-INTERNAL-WRITER-FUNCTION)|
1190                    |(SETF SLOT-DEFINITION-ALLOCATION)|
1191                    |(SETF SLOT-DEFINITION-INITFUNCTION)|
1192                    |(SETF SLOT-ACCESSOR-FUNCTION)|
1193                  |(BOUNDP DEFSTRUCT-CONSTRUCTOR)|                  |(BOUNDP DEFSTRUCT-CONSTRUCTOR)|
                 |(FAST-BOUNDP-METHOD SLOT-OBJECT PLIST)|  
                 |(FAST-BOUNDP-METHOD SLOT-OBJECT INCOMPATIBLE-SUPERCLASS-LIST)|  
                 |(FAST-BOUNDP-METHOD SLOT-OBJECT CAN-PRECEDE-LIST)|  
                 |(FAST-BOUNDP-METHOD SLOT-OBJECT CLASS-PRECEDENCE-LIST)|  
                 |(FAST-BOUNDP-METHOD SLOT-OBJECT LAMBDA-LIST)|  
1194                  |(FAST-BOUNDP-METHOD SLOT-OBJECT PRETTY-ARGLIST)|                  |(FAST-BOUNDP-METHOD SLOT-OBJECT PRETTY-ARGLIST)|
1195                  |(SETF SLOT-DEFINITION-WRITERS)|                  |(FAST-BOUNDP-METHOD SLOT-OBJECT LAMBDA-LIST)|
1196                    |(FAST-BOUNDP-METHOD SLOT-OBJECT CLASS-PRECEDENCE-LIST)|
1197                    |(FAST-BOUNDP-METHOD SLOT-OBJECT CAN-PRECEDE-LIST)|
1198                    |(FAST-BOUNDP-METHOD SLOT-OBJECT INCOMPATIBLE-SUPERCLASS-LIST)|
1199                    |(FAST-BOUNDP-METHOD SLOT-OBJECT PLIST)|
1200                  |(SETF SLOT-DEFINITION-READERS)|                  |(SETF SLOT-DEFINITION-READERS)|
1201                    |(SETF SLOT-DEFINITION-WRITERS)|
1202                  |(SETF SLOT-DEFINITION-TYPE)|                  |(SETF SLOT-DEFINITION-TYPE)|
1203                  |(SETF SLOT-DEFINITION-INITFORM)|                  |(SETF SLOT-DEFINITION-INITFORM)|
1204                  |(BOUNDP INITIALIZE-INFO)|                  |(BOUNDP INITIALIZE-INFO)|
                 |(FAST-BOUNDP-METHOD SLOT-OBJECT FROM-DEFCLASS-P)|  
                 |(FAST-BOUNDP-METHOD SLOT-OBJECT DIRECT-METHODS)|  
                 |(FAST-BOUNDP-METHOD SLOT-OBJECT SLOTS)|  
                 |(FAST-BOUNDP-METHOD SLOT-OBJECT DIRECT-SLOTS)|  
                 |(FAST-BOUNDP-METHOD SLOT-OBJECT METHODS)|  
1205                  |(FAST-BOUNDP-METHOD SLOT-OBJECT OPTIONS)|                  |(FAST-BOUNDP-METHOD SLOT-OBJECT OPTIONS)|
1206                  |(FAST-BOUNDP-METHOD SLOT-OBJECT DIRECT-SUBCLASSES)|                  |(FAST-BOUNDP-METHOD SLOT-OBJECT METHODS)|
1207                    |(FAST-BOUNDP-METHOD SLOT-OBJECT DIRECT-SLOTS)|
1208                    |(FAST-BOUNDP-METHOD SLOT-OBJECT SLOTS)|
1209                    |(FAST-BOUNDP-METHOD SLOT-OBJECT DIRECT-METHODS)|
1210                    |(FAST-BOUNDP-METHOD SLOT-OBJECT FROM-DEFCLASS-P)|
1211                  |(FAST-BOUNDP-METHOD SLOT-OBJECT DIRECT-SUPERCLASSES)|                  |(FAST-BOUNDP-METHOD SLOT-OBJECT DIRECT-SUPERCLASSES)|
1212                    |(FAST-BOUNDP-METHOD SLOT-OBJECT DIRECT-SUBCLASSES)|
1213                  |(FAST-INTERNAL-READER-METHOD STANDARD-GENERIC-FUNCTION ARG-INFO)|                  |(FAST-INTERNAL-READER-METHOD STANDARD-GENERIC-FUNCTION ARG-INFO)|
1214                  |(BOUNDP INITARGS)| LONG-METHOD-COMBINATION-FUNCTION                  |(BOUNDP INITARGS)| LONG-METHOD-COMBINATION-FUNCTION
1215                  GENERIC-FUNCTION-P                  GENERIC-FUNCTION-P
1216                  |PCL::SLOT-DEFINITION class predicate|                  |PCL::SLOT-DEFINITION class predicate|
1217                  |LISP::NULL class predicate| |(READER NAME)|                  |LISP::NULL class predicate| |(READER NAME)|
1218                  |(READER CLASS)|                  |(READER CLASS)| |(FAST-METHOD DESCRIBE-OBJECT (T T))|
1219                    |(FAST-METHOD DESCRIBE-OBJECT (SLOT-OBJECT T))|
1220                    |(FAST-METHOD DESCRIBE-OBJECT (STANDARD-GENERIC-FUNCTION T))|
1221                  |(FAST-METHOD DESCRIBE-OBJECT (CLASS T))|                  |(FAST-METHOD DESCRIBE-OBJECT (CLASS T))|
1222                  |(FAST-METHOD COMPUTE-APPLICABLE-METHODS-USING-CLASSES (GENERIC-FUNCTION T))|                  |(FAST-METHOD COMPUTE-APPLICABLE-METHODS-USING-CLASSES (GENERIC-FUNCTION T))|
1223                  |(FAST-METHOD SLOT-ACCESSOR-FUNCTION (EFFECTIVE-SLOT-DEFINITION T))|                  |(FAST-METHOD SLOT-ACCESSOR-FUNCTION (EFFECTIVE-SLOT-DEFINITION T))|
# Line 1222  Line 1226 
1226                  |(FAST-METHOD LEGAL-QUALIFIERS-P (STANDARD-METHOD T))|                  |(FAST-METHOD LEGAL-QUALIFIERS-P (STANDARD-METHOD T))|
1227                  |(FAST-METHOD LEGAL-SPECIALIZERS-P (STANDARD-METHOD T))|                  |(FAST-METHOD LEGAL-SPECIALIZERS-P (STANDARD-METHOD T))|
1228                  |(FAST-METHOD DEFAULT-INITARGS (SLOT-CLASS T))|                  |(FAST-METHOD DEFAULT-INITARGS (SLOT-CLASS T))|
1229                  |(FAST-METHOD DESCRIBE-OBJECT (T T))|                  |(FAST-METHOD UPDATE-INSTANCE-FOR-REDEFINED-CLASS (STANDARD-OBJECT T T T))|
                 |(FAST-METHOD DESCRIBE-OBJECT (SLOT-OBJECT T))|  
                 |(FAST-METHOD DESCRIBE-OBJECT (STANDARD-GENERIC-FUNCTION T))|  
1230                  |(FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION LONG-METHOD-COMBINATION T))|                  |(FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION LONG-METHOD-COMBINATION T))|
1231                  |(FAST-METHOD SHARED-INITIALIZE (SLOT-OBJECT T))|                  |(FAST-METHOD SHARED-INITIALIZE (SLOT-OBJECT T))|
1232                  |(FAST-METHOD (SETF SLOT-ACCESSOR-FUNCTION) (T EFFECTIVE-SLOT-DEFINITION T))|                  |(FAST-METHOD (SETF SLOT-ACCESSOR-FUNCTION) (T EFFECTIVE-SLOT-DEFINITION T))|
# Line 1239  Line 1241 
1241                  |(FAST-METHOD SHARED-INITIALIZE :BEFORE (STANDARD-METHOD T))|                  |(FAST-METHOD SHARED-INITIALIZE :BEFORE (STANDARD-METHOD T))|
1242                  |(FAST-METHOD SHARED-INITIALIZE :AFTER (STANDARD-ACCESSOR-METHOD T))|                  |(FAST-METHOD SHARED-INITIALIZE :AFTER (STANDARD-ACCESSOR-METHOD T))|
1243                  |(FAST-METHOD SHARED-INITIALIZE :BEFORE (STANDARD-GENERIC-FUNCTION T))|                  |(FAST-METHOD SHARED-INITIALIZE :BEFORE (STANDARD-GENERIC-FUNCTION T))|
                 |(FAST-METHOD UPDATE-INSTANCE-FOR-REDEFINED-CLASS (STANDARD-OBJECT T T T))|  
1244                  |(FAST-METHOD UPDATE-GF-DFUN (STD-CLASS T))|                  |(FAST-METHOD UPDATE-GF-DFUN (STD-CLASS T))|
1245                  |(FAST-METHOD SLOT-ACCESSOR-STD-P (EFFECTIVE-SLOT-DEFINITION T))|                  |(FAST-METHOD SLOT-ACCESSOR-STD-P (EFFECTIVE-SLOT-DEFINITION T))|
1246                  |(FAST-METHOD DIRECT-SLOT-DEFINITION-CLASS (STRUCTURE-CLASS T))|                  |(FAST-METHOD DIRECT-SLOT-DEFINITION-CLASS (STRUCTURE-CLASS T))|
# Line 1276  Line 1277 
1277                  |(FAST-METHOD COMPUTE-APPLICABLE-METHODS (GENERIC-FUNCTION T))|                  |(FAST-METHOD COMPUTE-APPLICABLE-METHODS (GENERIC-FUNCTION T))|
1278                  |(FAST-METHOD MAKE-READER-METHOD-FUNCTION (FUNCALLABLE-STANDARD-CLASS T))|                  |(FAST-METHOD MAKE-READER-METHOD-FUNCTION (FUNCALLABLE-STANDARD-CLASS T))|
1279                  |(FAST-METHOD MAKE-WRITER-METHOD-FUNCTION (FUNCALLABLE-STANDARD-CLASS T))|                  |(FAST-METHOD MAKE-WRITER-METHOD-FUNCTION (FUNCALLABLE-STANDARD-CLASS T))|
1280                    |(FAST-METHOD SLOT-MISSING (T T T T))|
1281                  |(FAST-METHOD (SETF SLOT-ACCESSOR-STD-P) (T EFFECTIVE-SLOT-DEFINITION T))|                  |(FAST-METHOD (SETF SLOT-ACCESSOR-STD-P) (T EFFECTIVE-SLOT-DEFINITION T))|
1282                  |(FAST-METHOD COMPUTE-SLOT-ACCESSOR-INFO (EFFECTIVE-SLOT-DEFINITION T T))|                  |(FAST-METHOD COMPUTE-SLOT-ACCESSOR-INFO (EFFECTIVE-SLOT-DEFINITION T T))|
1283                  |(FAST-METHOD SHARED-INITIALIZE :AFTER (STD-CLASS T))|                  |(FAST-METHOD SHARED-INITIALIZE :AFTER (STD-CLASS T))|
# Line 1292  Line 1294 
1294                  |(FAST-METHOD SLOT-UNBOUND (T T T))|                  |(FAST-METHOD SLOT-UNBOUND (T T T))|
1295                  |(FAST-METHOD FIND-METHOD-COMBINATION (GENERIC-FUNCTION (EQL STANDARD) T))|                  |(FAST-METHOD FIND-METHOD-COMBINATION (GENERIC-FUNCTION (EQL STANDARD) T))|
1296                  |(FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION SHORT-METHOD-COMBINATION T))|                  |(FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION SHORT-METHOD-COMBINATION T))|
1297                  |(FAST-METHOD SLOT-MISSING (T T T T))|                  LEGAL-SLOT-NAME-P |(READER OBJECT)| |(READER TYPE)|
                 LEGAL-SLOT-NAME-P |(READER TYPE)| |(READER OBJECT)|  
1298                  CLASS-WRAPPER |(READER PLIST)|                  CLASS-WRAPPER |(READER PLIST)|
1299                  |(FAST-METHOD NO-APPLICABLE-METHOD (T))|                  |(FAST-METHOD NO-APPLICABLE-METHOD (T))|
1300                  |(FAST-METHOD CLASS-PREDICATE-NAME (T))|                  |(FAST-METHOD CLASS-PREDICATE-NAME (T))|
1301                  |(FAST-METHOD DOCUMENTATION (T))| |(READER SLOTS)|                  |(FAST-METHOD DOCUMENTATION (T))| |(READER SLOTS)|
1302                  |(WRITER NAME)| DEFINITION-SOURCE                  |(WRITER NAME)| DEFINITION-SOURCE
1303                  |PCL::SLOT-OBJECT class predicate| DEFAULT-INITARGS                  |PCL::SLOT-OBJECT class predicate| DEFAULT-INITARGS
1304                  |(WRITER CLASS)| CLASS-SLOT-VALUE |(WRITER TYPE)|                  |(WRITER CLASS)| CLASS-SLOT-VALUE |(WRITER OBJECT)|
1305                  |(WRITER OBJECT)|                  |(WRITER TYPE)|
1306                  |(FAST-METHOD ENSURE-CLASS-USING-CLASS (T NULL))|                  |(FAST-METHOD ENSURE-CLASS-USING-CLASS (T NULL))|
1307                  |(WRITER PLIST)| |(WRITER SLOTS)|                  |(WRITER PLIST)| |(WRITER SLOTS)|
1308                  |PCL::DOCUMENTATION-MIXIN class predicate|                  |PCL::DOCUMENTATION-MIXIN class predicate|
# Line 1309  Line 1310 
1310                  LEGAL-QUALIFIER-P METHOD-P                  LEGAL-QUALIFIER-P METHOD-P
1311                  |PCL::SPECIALIZER-WITH-OBJECT class predicate|                  |PCL::SPECIALIZER-WITH-OBJECT class predicate|
1312                  CLASS-SLOT-CELLS                  CLASS-SLOT-CELLS
                 |(COMBINED-METHOD INITIALIZE-INSTANCE)|  
1313                  |(COMBINED-METHOD REINITIALIZE-INSTANCE)|                  |(COMBINED-METHOD REINITIALIZE-INSTANCE)|
1314                    |(COMBINED-METHOD INITIALIZE-INSTANCE)|
1315                  STANDARD-ACCESSOR-METHOD-P |(SETF CLASS-NAME)|                  STANDARD-ACCESSOR-METHOD-P |(SETF CLASS-NAME)|
1316                  STANDARD-GENERIC-FUNCTION-P STANDARD-READER-METHOD-P                  STANDARD-METHOD-P STANDARD-READER-METHOD-P
1317                  STANDARD-METHOD-P |(READER WRAPPER)|                  STANDARD-GENERIC-FUNCTION-P |(READER WRAPPER)|
1318                  |(READER DEFSTRUCT-ACCESSOR-SYMBOL)|                  |(READER DEFSTRUCT-ACCESSOR-SYMBOL)|
1319                  |(READER CLASS-EQ-SPECIALIZER)|                  |(READER CLASS-EQ-SPECIALIZER)|
1320                    COMPUTE-DEFAULT-INITARGS
1321                  COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS                  COMPUTE-EFFECTIVE-SLOT-DEFINITION-INITARGS
1322                  COMPUTE-DEFAULT-INITARGS |(SETF CLASS-DEFSTRUCT-FORM)|                  |(SETF CLASS-DEFSTRUCT-FORM)|
1323                  |(CALL REAL-MAKE-METHOD-LAMBDA)|                  |(CALL REAL-MAKE-METHOD-LAMBDA)|
1324                  |(SETF CLASS-INCOMPATIBLE-SUPERCLASS-LIST)|                  |(SETF CLASS-INCOMPATIBLE-SUPERCLASS-LIST)|
1325                  |SETF PCL CLASS-SLOT-VALUE| |(SETF CLASS-SLOTS)|                  |SETF PCL CLASS-SLOT-VALUE| |(SETF CLASS-DIRECT-SLOTS)|
1326                  |(SETF CLASS-DIRECT-SLOTS)| |(READER OPERATOR)|                  |(SETF CLASS-SLOTS)| |(READER OPERATOR)|
1327                  |(CALL REAL-GET-METHOD)| |(CALL REAL-REMOVE-METHOD)|                  |(CALL REAL-ADD-METHOD)| |(CALL REAL-REMOVE-METHOD)|
1328                  |(CALL REAL-ADD-METHOD)| |(READER ARG-INFO)|                  |(CALL REAL-GET-METHOD)| |(READER ARG-INFO)|
1329                  METHOD-COMBINATION-TYPE                  METHOD-COMBINATION-TYPE
1330                  |(READER DEFSTRUCT-CONSTRUCTOR)|                  |(READER DEFSTRUCT-CONSTRUCTOR)|
1331                  |(INTERNAL-READER-METHOD STANDARD-GENERIC-FUNCTION ARG-INFO)|                  |(INTERNAL-READER-METHOD STANDARD-GENERIC-FUNCTION ARG-INFO)|
# Line 1335  Line 1337 
1337                  COMPUTE-SLOT-ACCESSOR-INFO |(READER INITARGS)|                  COMPUTE-SLOT-ACCESSOR-INFO |(READER INITARGS)|
1338                  |(WRITER CLASS-EQ-SPECIALIZER)|                  |(WRITER CLASS-EQ-SPECIALIZER)|
1339                  STANDARD-BOUNDP-METHOD-P |(SETF DOCUMENTATION)|                  STANDARD-BOUNDP-METHOD-P |(SETF DOCUMENTATION)|
1340                  RAW-INSTANCE-ALLOCATOR                  RAW-INSTANCE-ALLOCATOR |SETF PCL CLASS-INITIALIZE-INFO|
1341                  |SETF PCL SLOT-DEFINITION-DEFSTRUCT-ACCESSOR-SYMBOL|                  |SETF PCL SLOT-DEFINITION-DEFSTRUCT-ACCESSOR-SYMBOL|
1342                  |SETF PCL CLASS-INITIALIZE-INFO| |(WRITER OPERATOR)|                  |(WRITER OPERATOR)| |(WRITER ARG-INFO)|
                 |(WRITER ARG-INFO)|  
1343                  COMPUTE-DISCRIMINATING-FUNCTION-ARGLIST-INFO                  COMPUTE-DISCRIMINATING-FUNCTION-ARGLIST-INFO
1344                  STANDARD-WRITER-METHOD-P                  STANDARD-WRITER-METHOD-P
1345                  CLASS-INCOMPATIBLE-SUPERCLASS-LIST                  CLASS-INCOMPATIBLE-SUPERCLASS-LIST
# Line 1348  Line 1349 
1349                  METHOD-COMBINATION-DOCUMENTATION                  METHOD-COMBINATION-DOCUMENTATION
1350                  |SETF PCL SLOT-DEFINITION-INITARGS|                  |SETF PCL SLOT-DEFINITION-INITARGS|
1351                  REMOVE-BOUNDP-METHOD ADD-NAMED-METHOD                  REMOVE-BOUNDP-METHOD ADD-NAMED-METHOD
1352                  |LISP::CONS class predicate|                  |(WRITER INITARGS)|
1353                  |SETF PCL CLASS-DEFSTRUCT-CONSTRUCTOR|                  |SETF PCL CLASS-DEFSTRUCT-CONSTRUCTOR|
1354                  |(WRITER INITARGS)| |(BOUNDP METHOD)|                  |LISP::CONS class predicate| |(BOUNDP METHOD)|
                 |(FAST-WRITER-METHOD SLOT-OBJECT PREDICATE-NAME)|  
                 |(FAST-WRITER-METHOD CLASS NAME)|  
                 |(FAST-WRITER-METHOD SLOT-DEFINITION NAME)|  
                 |(FAST-WRITER-METHOD SLOT-OBJECT SLOT-NAME)|  
                 |(FAST-WRITER-METHOD SLOT-OBJECT DFUN-STATE)|  
                 |(FAST-WRITER-METHOD STANDARD-GENERIC-FUNCTION DFUN-STATE)|  
                 |(FAST-WRITER-METHOD SLOT-OBJECT NAME)|  
1355                  |(FAST-WRITER-METHOD STANDARD-GENERIC-FUNCTION NAME)|                  |(FAST-WRITER-METHOD STANDARD-GENERIC-FUNCTION NAME)|
1356                    |(FAST-WRITER-METHOD SLOT-OBJECT NAME)|
1357                    |(FAST-WRITER-METHOD STANDARD-GENERIC-FUNCTION DFUN-STATE)|
1358                    |(FAST-WRITER-METHOD SLOT-OBJECT DFUN-STATE)|
1359                    |(FAST-WRITER-METHOD SLOT-OBJECT SLOT-NAME)|
1360                    |(FAST-WRITER-METHOD SLOT-DEFINITION NAME)|
1361                    |(FAST-WRITER-METHOD CLASS NAME)|
1362                    |(FAST-WRITER-METHOD SLOT-OBJECT PREDICATE-NAME)|
1363                  |(BOUNDP SOURCE)| |(SETF GF-DFUN-STATE)|                  |(BOUNDP SOURCE)| |(SETF GF-DFUN-STATE)|
1364                  SHORT-COMBINATION-OPERATOR                  SHORT-COMBINATION-OPERATOR
                 |(FAST-WRITER-METHOD SLOT-OBJECT CLASS)|  
                 |(FAST-WRITER-METHOD SLOT-DEFINITION CLASS)|  
                 |(FAST-WRITER-METHOD SLOT-OBJECT ACCESSOR-FLAGS)|  
                 |(FAST-WRITER-METHOD SLOT-OBJECT METHOD-CLASS)|  
1365                  |(FAST-WRITER-METHOD STANDARD-GENERIC-FUNCTION METHOD-CLASS)|                  |(FAST-WRITER-METHOD STANDARD-GENERIC-FUNCTION METHOD-CLASS)|
1366                  |(FAST-WRITER-METHOD TRACED-METHOD GENERIC-FUNCTION)|                  |(FAST-WRITER-METHOD SLOT-OBJECT METHOD-CLASS)|
1367                  |(FAST-WRITER-METHOD SLOT-OBJECT INITFUNCTION)|                  |(FAST-WRITER-METHOD SLOT-OBJECT ACCESSOR-FLAGS)|
1368                  |(FAST-WRITER-METHOD SLOT-DEFINITION INITFUNCTION)|                  |(FAST-WRITER-METHOD SLOT-DEFINITION CLASS)|
1369                  |(FAST-WRITER-METHOD SLOT-OBJECT ALLOCATION)|                  |(FAST-WRITER-METHOD SLOT-OBJECT CLASS)|
                 |(FAST-WRITER-METHOD STANDARD-SLOT-DEFINITION ALLOCATION)|  
                 |(FAST-WRITER-METHOD SLOT-OBJECT INTERNAL-WRITER-FUNCTION)|  
                 |(FAST-WRITER-METHOD STRUCTURE-SLOT-DEFINITION INTERNAL-WRITER-FUNCTION)|  
                 |(FAST-WRITER-METHOD SLOT-OBJECT INTERNAL-READER-FUNCTION)|  
                 |(FAST-WRITER-METHOD STRUCTURE-SLOT-DEFINITION INTERNAL-READER-FUNCTION)|  
                 |(FAST-WRITER-METHOD SLOT-OBJECT BOUNDP-FUNCTION)|  
                 |(FAST-WRITER-METHOD EFFECTIVE-SLOT-DEFINITION BOUNDP-FUNCTION)|  
                 |(FAST-WRITER-METHOD SLOT-OBJECT WRITER-FUNCTION)|  
                 |(FAST-WRITER-METHOD EFFECTIVE-SLOT-DEFINITION WRITER-FUNCTION)|  
                 |(FAST-WRITER-METHOD SLOT-OBJECT READER-FUNCTION)|  
                 |(FAST-WRITER-METHOD EFFECTIVE-SLOT-DEFINITION READER-FUNCTION)|  
                 |(FAST-WRITER-METHOD SLOT-OBJECT LOCATION)|  
                 |(FAST-WRITER-METHOD STANDARD-EFFECTIVE-SLOT-DEFINITION LOCATION)|  
                 |(FAST-WRITER-METHOD SLOT-OBJECT FAST-FUNCTION)|  
                 |(FAST-WRITER-METHOD SLOT-OBJECT FUNCTION)|  
                 |(FAST-WRITER-METHOD SLOT-OBJECT GENERIC-FUNCTION)|  
                 |(FAST-WRITER-METHOD STANDARD-METHOD GENERIC-FUNCTION)|  
                 |(FAST-WRITER-METHOD SLOT-OBJECT SLOT-DEFINITION)|  
                 |(FAST-WRITER-METHOD SLOT-OBJECT METHOD-COMBINATION)|  
                 |(FAST-WRITER-METHOD STANDARD-GENERIC-FUNCTION METHOD-COMBINATION)|  
1370                  |(FAST-WRITER-METHOD SLOT-OBJECT DOCUMENTATION)|                  |(FAST-WRITER-METHOD SLOT-OBJECT DOCUMENTATION)|
1371                  |(FAST-WRITER-METHOD SLOT-OBJECT WRITERS)|                  |(FAST-WRITER-METHOD STANDARD-GENERIC-FUNCTION METHOD-COMBINATION)|
1372                  |(FAST-WRITER-METHOD SLOT-DEFINITION WRITERS)|                  |(FAST-WRITER-METHOD SLOT-OBJECT METHOD-COMBINATION)|
1373                  |(FAST-WRITER-METHOD SLOT-OBJECT READERS)|                  |(FAST-WRITER-METHOD SLOT-OBJECT SLOT-DEFINITION)|
1374                  |(FAST-WRITER-METHOD SLOT-DEFINITION READERS)|                  |(FAST-WRITER-METHOD STANDARD-METHOD GENERIC-FUNCTION)|
1375                    |(FAST-WRITER-METHOD SLOT-OBJECT GENERIC-FUNCTION)|
1376                    |(FAST-WRITER-METHOD SLOT-OBJECT FUNCTION)|
1377                    |(FAST-WRITER-METHOD SLOT-OBJECT FAST-FUNCTION)|
1378                    |(FAST-WRITER-METHOD STANDARD-EFFECTIVE-SLOT-DEFINITION LOCATION)|
1379                    |(FAST-WRITER-METHOD SLOT-OBJECT LOCATION)|
1380                    |(FAST-WRITER-METHOD EFFECTIVE-SLOT-DEFINITION READER-FUNCTION)|
1381                    |(FAST-WRITER-METHOD SLOT-OBJECT READER-FUNCTION)|
1382                    |(FAST-WRITER-METHOD EFFECTIVE-SLOT-DEFINITION WRITER-FUNCTION)|
1383                    |(FAST-WRITER-METHOD SLOT-OBJECT WRITER-FUNCTION)|
1384                    |(FAST-WRITER-METHOD EFFECTIVE-SLOT-DEFINITION BOUNDP-FUNCTION)|
1385                    |(FAST-WRITER-METHOD SLOT-OBJECT BOUNDP-FUNCTION)|
1386                    |(FAST-WRITER-METHOD STRUCTURE-SLOT-DEFINITION INTERNAL-READER-FUNCTION)|
1387                    |(FAST-WRITER-METHOD SLOT-OBJECT INTERNAL-READER-FUNCTION)|
1388                    |(FAST-WRITER-METHOD STRUCTURE-SLOT-DEFINITION INTERNAL-WRITER-FUNCTION)|
1389                    |(FAST-WRITER-METHOD SLOT-OBJECT INTERNAL-WRITER-FUNCTION)|
1390                    |(FAST-WRITER-METHOD STANDARD-SLOT-DEFINITION ALLOCATION)|
1391                    |(FAST-WRITER-METHOD SLOT-OBJECT ALLOCATION)|
1392                    |(FAST-WRITER-METHOD SLOT-DEFINITION INITFUNCTION)|
1393                    |(FAST-WRITER-METHOD SLOT-OBJECT INITFUNCTION)|
1394                    |(FAST-WRITER-METHOD TRACED-METHOD GENERIC-FUNCTION)|
1395                  |(FAST-WRITER-METHOD SLOT-OBJECT SPECIALIZERS)|                  |(FAST-WRITER-METHOD SLOT-OBJECT SPECIALIZERS)|
1396                  |(FAST-WRITER-METHOD SLOT-OBJECT PROTOTYPE)|                  |(FAST-WRITER-METHOD SLOT-DEFINITION READERS)|
1397                  |(FAST-WRITER-METHOD SLOT-DEFINITION TYPE)|                  |(FAST-WRITER-METHOD SLOT-OBJECT READERS)|
1398                  |(FAST-WRITER-METHOD SLOT-OBJECT TYPE)|                  |(FAST-WRITER-METHOD SLOT-DEFINITION WRITERS)|
1399                  |(FAST-WRITER-METHOD SLOT-OBJECT IDENTITY-WITH-ONE-ARGUMENT)|                  |(FAST-WRITER-METHOD SLOT-OBJECT WRITERS)|
1400                  |(FAST-WRITER-METHOD SLOT-OBJECT OBJECT)|                  |(FAST-WRITER-METHOD SLOT-OBJECT OBJECT)|
1401                    |(FAST-WRITER-METHOD SLOT-OBJECT IDENTITY-WITH-ONE-ARGUMENT)|
1402                    |(FAST-WRITER-METHOD SLOT-OBJECT TYPE)|
1403                    |(FAST-WRITER-METHOD SLOT-DEFINITION TYPE)|
1404                    |(FAST-WRITER-METHOD SLOT-OBJECT PROTOTYPE)|
1405                  REMOVE-NAMED-METHOD                  REMOVE-NAMED-METHOD
                 |(FAST-WRITER-METHOD SLOT-OBJECT DEFSTRUCT-FORM)|  
                 |(FAST-WRITER-METHOD STRUCTURE-CLASS DEFSTRUCT-FORM)|  
                 |(FAST-WRITER-METHOD SLOT-OBJECT INITFORM)|  
1406                  |(FAST-WRITER-METHOD SLOT-DEFINITION INITFORM)|                  |(FAST-WRITER-METHOD SLOT-DEFINITION INITFORM)|
1407                  |(FAST-WRITER-METHOD SLOT-OBJECT PLIST)|                  |(FAST-WRITER-METHOD SLOT-OBJECT INITFORM)|
1408                  |(FAST-WRITER-METHOD PLIST-MIXIN PLIST)|                  |(FAST-WRITER-METHOD STRUCTURE-CLASS DEFSTRUCT-FORM)|
1409                  |(FAST-WRITER-METHOD SLOT-OBJECT INCOMPATIBLE-SUPERCLASS-LIST)|                  |(FAST-WRITER-METHOD SLOT-OBJECT DEFSTRUCT-FORM)|
                 |(FAST-WRITER-METHOD PCL-CLASS INCOMPATIBLE-SUPERCLASS-LIST)|  
                 |(FAST-WRITER-METHOD SLOT-OBJECT CAN-PRECEDE-LIST)|  
                 |(FAST-WRITER-METHOD SLOT-OBJECT CLASS-PRECEDENCE-LIST)|  
                 |(FAST-WRITER-METHOD SLOT-OBJECT LAMBDA-LIST)|  
                 |(FAST-WRITER-METHOD SLOT-OBJECT PRETTY-ARGLIST)|  
1410                  |(FAST-WRITER-METHOD STANDARD-GENERIC-FUNCTION PRETTY-ARGLIST)|                  |(FAST-WRITER-METHOD STANDARD-GENERIC-FUNCTION PRETTY-ARGLIST)|
1411                    |(FAST-WRITER-METHOD SLOT-OBJECT PRETTY-ARGLIST)|
1412                    |(FAST-WRITER-METHOD SLOT-OBJECT LAMBDA-LIST)|
1413                    |(FAST-WRITER-METHOD SLOT-OBJECT CLASS-PRECEDENCE-LIST)|
1414                    |(FAST-WRITER-METHOD SLOT-OBJECT CAN-PRECEDE-LIST)|
1415                    |(FAST-WRITER-METHOD PCL-CLASS INCOMPATIBLE-SUPERCLASS-LIST)|
1416                    |(FAST-WRITER-METHOD SLOT-OBJECT INCOMPATIBLE-SUPERCLASS-LIST)|
1417                    |(FAST-WRITER-METHOD PLIST-MIXIN PLIST)|
1418                    |(FAST-WRITER-METHOD SLOT-OBJECT PLIST)|
1419                  LEGAL-DOCUMENTATION-P CLASS-DIRECT-SUPERCLASSES                  LEGAL-DOCUMENTATION-P CLASS-DIRECT-SUPERCLASSES
1420                  CLASS-DIRECT-SUBCLASSES CLASS-DIRECT-DEFAULT-INITARGS                  CLASS-DIRECT-SUBCLASSES CLASS-DIRECT-DEFAULT-INITARGS
1421                  SLOT-DEFINITION-READERS SLOT-VALUE-USING-CLASS                  SLOT-DEFINITION-READERS SLOT-VALUE-USING-CLASS

Legend:
Removed from v.1.1.6.2  
changed lines
  Added in v.1.1.6.3

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