1 ;;;; Mostly this file contains generic functions. The exceptions are hacks.
3 ;;;; This software is part of the SBCL system. See the README file for
6 ;;;; This software is in the public domain and is provided with absolutely no
7 ;;;; warranty. See the COPYING and CREDITS files for more information.
16 (defgeneric class-eq-specializer-p (object))
18 (defgeneric classp (object))
20 (defgeneric eql-specializer-p (object))
22 (defgeneric exact-class-specializer-p (object))
24 (defgeneric forward-referenced-class-p (object))
26 (defgeneric funcallable-standard-class-p (object))
28 (defgeneric generic-function-p (object))
30 (defgeneric legal-lambda-list-p (object x))
32 (defgeneric method-combination-p (object))
34 (defgeneric method-p (object))
36 (defgeneric short-method-combination-p (object))
38 (defgeneric slot-class-p (object))
40 (defgeneric specializerp (object))
42 (defgeneric standard-accessor-method-p (object))
44 (defgeneric standard-boundp-method-p (object))
46 (defgeneric standard-class-p (object))
48 (defgeneric standard-generic-function-p (object))
50 (defgeneric standard-method-p (object))
52 (defgeneric standard-reader-method-p (object))
54 (defgeneric standard-writer-method-p (object))
56 (defgeneric structure-class-p (object))
60 (defgeneric accessor-method-slot-definition (standard-accessor-method))
62 (defgeneric class-can-precede-list (pcl-class))
64 (defgeneric class-defstruct-constructor (structure-class))
66 (defgeneric class-defstruct-form (structure-class))
68 (defgeneric class-direct-subclasses (class))
70 (defgeneric class-direct-superclasses (class))
72 (defgeneric class-eq-specializer (class))
74 (defgeneric class-incompatible-superclass-list (pcl-class))
76 (defgeneric class-initialize-info (slot-class))
78 (defgeneric class-name (class))
80 (defgeneric class-precedence-list (pcl-class))
82 (defgeneric class-predicate-name (class))
84 (defgeneric class-wrapper (pcl-class))
86 (defgeneric definition-source (definition-source-mixin))
88 (defgeneric eql-specializer-object (eql-specializer))
90 (defgeneric generic-function-method-class (standard-generic-function))
92 (defgeneric generic-function-method-combination (standard-generic-function))
94 (defgeneric generic-function-methods (standard-generic-function))
96 (defgeneric generic-function-name (standard-generic-function))
98 (defgeneric gf-arg-info (standard-generic-function))
100 (defgeneric gf-dfun-state (standard-generic-function))
102 (defgeneric gf-pretty-arglist (standard-generic-function))
104 (defgeneric long-method-combination-function (long-method-combination))
106 (defgeneric method-combination-documentation (standard-method-combination))
108 (defgeneric method-combination-options (standard-method-combination))
110 (defgeneric method-combination-type (standard-method-combination))
112 (defgeneric method-fast-function (standard-method))
114 (defgeneric method-generic-function (standard-method))
116 (defgeneric object-plist (plist-mixin))
118 (defgeneric short-combination-identity-with-one-argument
119 (short-method-combination))
121 (defgeneric short-combination-operator (short-method-combination))
123 (defgeneric slot-definition-boundp-function (effective-slot-definition))
125 (defgeneric slot-definition-class (slot-definition))
127 (defgeneric slot-definition-defstruct-accessor-symbol
128 (structure-slot-definition))
130 (defgeneric slot-definition-initargs (slot-definition))
132 (defgeneric slot-definition-initform (slot-definition))
134 (defgeneric slot-definition-initfunction (slot-definition))
136 (defgeneric slot-definition-internal-reader-function
137 (structure-slot-definition))
139 (defgeneric slot-definition-internal-writer-function
140 (structure-slot-definition))
142 (defgeneric slot-definition-location (standard-effective-slot-definition))
144 (defgeneric slot-definition-name (slot-definition))
146 (defgeneric slot-definition-reader-function (effective-slot-definition))
148 (defgeneric slot-definition-readers (slot-definition))
150 (defgeneric slot-definition-type (slot-definition))
152 (defgeneric slot-definition-writer-function (effective-slot-definition))
154 (defgeneric slot-definition-writers (slot-definition))
156 (defgeneric specializer-object (class-eq-specializer))
158 (defgeneric specializer-type (specializer))
162 (defgeneric (setf class-defstruct-constructor) (new-value structure-class))
164 (defgeneric (setf class-defstruct-form) (new-value structure-class))
166 (defgeneric (setf class-direct-slots) (new-value slot-class))
168 (defgeneric (setf class-incompatible-superclass-list) (new-value pcl-class))
170 (defgeneric (setf class-initialize-info) (new-value slot-class))
172 (defgeneric (setf class-name) (new-value class))
174 (defgeneric (setf class-slots) (new-value slot-class))
176 (defgeneric (setf generic-function-method-class) (new-value
177 standard-generic-function))
179 (defgeneric (setf generic-function-method-combination)
180 (new-value standard-generic-function))
182 (defgeneric (setf generic-function-methods) (new-value
183 standard-generic-function))
185 (defgeneric (setf generic-function-name) (new-value standard-generic-function))
187 (defgeneric (setf gf-dfun-state) (new-value standard-generic-function))
189 (defgeneric (setf gf-pretty-arglist) (new-value standard-generic-function))
191 (defgeneric (setf method-generic-function) (new-value standard-method))
193 (defgeneric (setf object-plist) (new-value plist-mixin))
195 (defgeneric (setf slot-definition-allocation) (new-value
196 standard-slot-definition))
198 (defgeneric (setf slot-definition-boundp-function)
199 (new-value effective-slot-definition))
201 (defgeneric (setf slot-definition-class) (new-value slot-definition))
203 (defgeneric (setf slot-definition-defstruct-accessor-symbol)
204 (new-value structure-slot-definition))
206 (defgeneric (setf slot-definition-initargs) (new-value slot-definition))
208 (defgeneric (setf slot-definition-initform) (new-value slot-definition))
210 (defgeneric (setf slot-definition-initfunction) (new-value slot-definition))
212 (defgeneric (setf slot-definition-internal-reader-function)
213 (new-value structure-slot-definition))
215 (defgeneric (setf slot-definition-internal-writer-function)
216 (new-value structure-slot-definition))
218 (defgeneric (setf slot-definition-location)
219 (new-value standard-effective-slot-definition))
221 (defgeneric (setf slot-definition-name) (new-value slot-definition))
223 (defgeneric (setf slot-definition-reader-function) (new-value
224 effective-slot-definition))
226 (defgeneric (setf slot-definition-readers) (new-value slot-definition))
228 (defgeneric (setf slot-definition-type) (new-value slot-definition))
230 (defgeneric (setf slot-definition-writer-function)
231 (new-value effective-slot-definition))
233 (defgeneric (setf slot-definition-writers) (new-value slot-definition))
237 (defgeneric accessor-method-class (method))
239 (defgeneric accessor-method-slot-name (m))
241 (defgeneric class-constructors (class))
243 (defgeneric class-default-initargs (class))
245 (defgeneric class-direct-default-initargs (class))
247 (defgeneric class-direct-slots (class))
249 (defgeneric class-finalized-p (class))
251 (defgeneric class-prototype (class))
253 (defgeneric class-slot-cells (class))
255 (defgeneric class-slots (class))
257 (defgeneric compute-class-precedence-list (root))
259 (defgeneric compute-default-initargs (class))
261 (defgeneric compute-discriminating-function (gf))
263 (defgeneric compute-discriminating-function-arglist-info (generic-function))
265 (defgeneric compute-slots (class))
267 (defgeneric finalize-inheritance (class))
269 (defgeneric function-keywords (method))
271 (defgeneric generic-function-lambda-list (gf))
273 (defgeneric generic-function-pretty-arglist (generic-function))
275 (defgeneric gf-fast-method-function-p (gf))
277 (defgeneric initialize-internal-slot-functions (slotd))
279 (defgeneric make-instances-obsolete (class))
281 (defgeneric method-function (method))
283 (defgeneric method-lambda-list (m))
285 (defgeneric method-pretty-arglist (method))
287 (defgeneric method-qualifiers (m))
289 (defgeneric method-specializers (m))
291 (defgeneric raw-instance-allocator (class))
293 (defgeneric slot-definition-allocation (slotd))
295 (defgeneric slots-fetcher (class))
297 (defgeneric specializer-class (specializer))
299 (defgeneric specializer-direct-generic-functions (specializer))
301 (defgeneric specializer-direct-methods (specializer))
303 (defgeneric specializer-method-table (specializer))
305 (defgeneric update-constructors (class))
307 (defgeneric wrapper-fetcher (class))
311 (defgeneric add-dependent (metaobject dependent))
313 (defgeneric add-direct-method (specializer method))
315 (defgeneric add-direct-subclass (class subclass))
317 (defgeneric add-method (generic-function method))
319 (defgeneric change-class (instance new-class-name))
321 (defgeneric class-slot-value (class slot-name))
323 (defgeneric compatible-meta-class-change-p (class proto-new-class))
325 (defgeneric compute-applicable-methods (generic-function arguments))
327 (defgeneric compute-applicable-methods-using-classes
328 (generic-function classes))
330 (defgeneric compute-effective-slot-definition (class dslotds))
332 (defgeneric compute-effective-slot-definition-initargs (class direct-slotds))
334 (defgeneric default-initargs (class supplied-initargs))
336 (defgeneric describe-object (object stream))
338 (defgeneric direct-slot-definition-class (class initargs))
340 (defgeneric effective-slot-definition-class (class initargs))
342 (defgeneric inform-type-system-about-class (class name))
344 (defgeneric legal-documentation-p (object x))
346 (defgeneric legal-method-function-p (object x))
348 (defgeneric legal-qualifier-p (object x))
350 (defgeneric legal-qualifiers-p (object x))
352 (defgeneric legal-slot-name-p (object x))
354 (defgeneric legal-specializer-p (object x))
356 (defgeneric legal-specializers-p (object x))
358 (defgeneric make-boundp-method-function (class slot-name))
360 (defgeneric make-reader-method-function (class slot-name))
362 (defgeneric make-writer-method-function (class slot-name))
364 (defgeneric map-dependents (metaobject function))
366 (defgeneric remove-boundp-method (class generic-function))
368 (defgeneric remove-dependent (metaobject dependent))
370 (defgeneric remove-direct-method (specializer method))
372 (defgeneric remove-direct-subclass (class subclass))
374 (defgeneric remove-method (generic-function method))
376 (defgeneric remove-reader-method (class generic-function))
378 (defgeneric remove-writer-method (class generic-function))
380 (defgeneric same-specializer-p (specl1 specl2))
382 (defgeneric slot-accessor-function (slotd type))
384 (defgeneric slot-accessor-std-p (slotd type))
386 ;;; This controls DESCRIBE-OBJECT (SLOT-OBJECT STREAM) behavior.
387 (defgeneric slots-to-inspect (class object))
389 (defgeneric update-gf-dfun (class gf))
391 (defgeneric validate-superclass (fsc class))
393 (defgeneric (setf documentation) (new-value slotd doc-type)
394 (:argument-precedence-order doc-type slotd new-value))
396 (defgeneric documentation (slotd doc-type)
397 (:argument-precedence-order doc-type slotd))
401 (defgeneric add-boundp-method (class generic-function slot-name))
403 (defgeneric add-reader-method (class generic-function slot-name))
405 (defgeneric add-writer-method (class generic-function slot-name))
407 (defgeneric (setf class-slot-value) (nv class slot-name))
409 (defgeneric compute-effective-method (generic-function
413 (defgeneric compute-slot-accessor-info (slotd type gf))
415 (defgeneric find-method-combination (generic-function type options))
417 (defgeneric (setf slot-accessor-function) (function slotd type))
419 (defgeneric (setf slot-accessor-std-p) (value slotd type))
421 (defgeneric slot-boundp-using-class (class object slotd))
423 (defgeneric slot-makunbound-using-class (class object slotd))
425 (defgeneric slot-unbound (class instance slot-name))
427 (defgeneric slot-value-using-class (class object slotd))
431 (defgeneric make-method-lambda (proto-generic-function
436 (defgeneric (setf slot-value-using-class) (new-value class object slotd))
440 (defgeneric make-method-initargs-form (proto-generic-function
446 ;;;; optional arguments
448 (defgeneric get-method (generic-function
451 &optional (errorp t)))
453 (defgeneric find-method (generic-function
456 &optional (errorp t)))
458 (defgeneric remove-named-method (generic-function-name
462 (defgeneric slot-missing (class
466 &optional new-value))
468 ;;;; keyword arguments
470 (defgeneric allocate-instance (class &rest initargs))
472 (defgeneric ensure-class-using-class (name
475 &key &allow-other-keys))
477 (defgeneric ensure-generic-function-using-class (generic-function
479 &key &allow-other-keys))
481 (defgeneric initialize-instance (gf &key &allow-other-keys))
483 (defgeneric make-instance (class &rest initargs))
485 (defgeneric no-applicable-method (generic-function &rest args))
487 (defgeneric reader-method-class (class direct-slot &rest initargs))
489 (defgeneric reinitialize-instance (gf &rest args &key &allow-other-keys))
491 (defgeneric shared-initialize (generic-function
493 &key &allow-other-keys))
495 (defgeneric update-dependent (metaobject dependent &rest initargs))
497 (defgeneric update-instance-for-different-class (previous
501 (defgeneric update-instance-for-redefined-class (instance
507 (defgeneric writer-method-class (class direct-slot &rest initargs))