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

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

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

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

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

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