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.
13 (defgeneric class-eq-specializer-p (object))
15 (defgeneric classp (object))
17 (defgeneric condition-class-p (object))
19 (defgeneric eql-specializer-p (object))
21 (defgeneric exact-class-specializer-p (object))
23 (defgeneric forward-referenced-class-p (object))
25 (defgeneric funcallable-standard-class-p (object))
27 (defgeneric generic-function-p (object))
29 (defgeneric legal-lambda-list-p (object x))
31 (defgeneric method-combination-p (object))
33 (defgeneric method-p (object))
35 (defgeneric short-method-combination-p (object))
37 (defgeneric slot-class-p (object))
39 (defgeneric specializerp (object))
41 (defgeneric standard-accessor-method-p (object))
43 (defgeneric standard-boundp-method-p (object))
45 (defgeneric standard-class-p (object))
47 (defgeneric standard-generic-function-p (object))
49 (defgeneric standard-method-p (object))
51 (defgeneric standard-reader-method-p (object))
53 (defgeneric standard-writer-method-p (object))
55 (defgeneric structure-class-p (object))
59 (defgeneric accessor-method-slot-definition (standard-accessor-method))
61 (defgeneric class-can-precede-list (pcl-class))
63 (defgeneric class-defstruct-constructor (structure-class))
65 (defgeneric class-defstruct-form (structure-class))
67 (defgeneric class-direct-subclasses (class))
69 (defgeneric class-direct-superclasses (class))
71 (defgeneric class-eq-specializer (class))
73 (defgeneric class-incompatible-superclass-list (pcl-class))
75 (defgeneric class-name (class))
77 (defgeneric class-precedence-list (pcl-class))
79 (defgeneric class-predicate-name (class))
81 (defgeneric class-wrapper (pcl-class))
83 (defgeneric definition-source (definition-source-mixin))
85 (defgeneric eql-specializer-object (eql-specializer))
87 (defgeneric generic-function-declarations (standard-generic-function))
89 (defgeneric generic-function-method-class (standard-generic-function))
91 (defgeneric generic-function-method-combination (standard-generic-function))
93 (defgeneric generic-function-methods (standard-generic-function))
95 (defgeneric generic-function-name (standard-generic-function))
97 (defgeneric gf-arg-info (standard-generic-function))
99 (defgeneric gf-dfun-state (standard-generic-function))
101 (defgeneric generic-function-initial-methods (standard-generic-function))
103 (defgeneric long-method-combination-function (long-method-combination))
105 (defgeneric method-combination-documentation (standard-method-combination))
107 (defgeneric method-combination-options (standard-method-combination))
109 (defgeneric method-combination-type (standard-method-combination))
111 (defgeneric method-fast-function (standard-method))
113 (defgeneric method-generic-function (standard-method))
115 (defgeneric object-plist (plist-mixin))
117 (defgeneric short-combination-identity-with-one-argument
118 (short-method-combination))
120 (defgeneric short-combination-operator (short-method-combination))
122 (defgeneric slot-definition-boundp-function (effective-slot-definition))
124 (defgeneric slot-definition-class (slot-definition))
126 (defgeneric slot-definition-defstruct-accessor-symbol
127 (structure-slot-definition))
129 (defgeneric slot-definition-initargs (slot-definition))
131 (defgeneric slot-definition-initform (slot-definition))
133 (defgeneric slot-definition-initfunction (slot-definition))
135 (defgeneric slot-definition-internal-reader-function
136 (structure-slot-definition))
138 (defgeneric slot-definition-internal-writer-function
139 (structure-slot-definition))
141 (defgeneric slot-definition-location (standard-effective-slot-definition))
143 (defgeneric slot-definition-name (slot-definition))
145 (defgeneric slot-definition-reader-function (effective-slot-definition))
147 (defgeneric slot-definition-readers (slot-definition))
149 (defgeneric slot-definition-type (slot-definition))
151 (defgeneric slot-definition-writer-function (effective-slot-definition))
153 (defgeneric slot-definition-writers (slot-definition))
155 (defgeneric specializer-object (class-eq-specializer))
157 (defgeneric specializer-type (specializer))
161 (defgeneric (setf class-defstruct-constructor) (new-value structure-class))
163 (defgeneric (setf class-defstruct-form) (new-value structure-class))
165 (defgeneric (setf class-direct-slots) (new-value slot-class))
167 (defgeneric (setf class-incompatible-superclass-list) (new-value pcl-class))
169 (defgeneric (setf class-slots) (new-value slot-class))
171 (defgeneric (setf generic-function-method-class) (new-value
172 standard-generic-function))
174 (defgeneric (setf generic-function-method-combination)
175 (new-value standard-generic-function))
177 (defgeneric (setf generic-function-declarations) (new-value
178 standard-generic-function))
180 (defgeneric (setf generic-function-methods) (new-value
181 standard-generic-function))
183 (defgeneric (setf gf-dfun-state) (new-value standard-generic-function))
185 (defgeneric (setf generic-function-initial-methods)
186 (new-value standard-generic-function))
188 (defgeneric (setf method-generic-function) (new-value standard-method))
190 (defgeneric (setf object-plist) (new-value plist-mixin))
192 (defgeneric (setf slot-definition-allocation) (new-value
193 standard-slot-definition))
195 (defgeneric (setf slot-definition-boundp-function)
196 (new-value effective-slot-definition))
198 (defgeneric (setf slot-definition-class) (new-value slot-definition))
200 (defgeneric (setf slot-definition-defstruct-accessor-symbol)
201 (new-value structure-slot-definition))
203 (defgeneric (setf slot-definition-initargs) (new-value slot-definition))
205 (defgeneric (setf slot-definition-initform) (new-value slot-definition))
207 (defgeneric (setf slot-definition-initfunction) (new-value slot-definition))
209 (defgeneric (setf slot-definition-internal-reader-function)
210 (new-value structure-slot-definition))
212 (defgeneric (setf slot-definition-internal-writer-function)
213 (new-value structure-slot-definition))
215 (defgeneric (setf slot-definition-location)
216 (new-value standard-effective-slot-definition))
218 (defgeneric (setf slot-definition-name) (new-value slot-definition))
220 (defgeneric (setf slot-definition-reader-function) (new-value
221 effective-slot-definition))
223 (defgeneric (setf slot-definition-readers) (new-value slot-definition))
225 (defgeneric (setf slot-definition-type) (new-value slot-definition))
227 (defgeneric (setf slot-definition-writer-function)
228 (new-value effective-slot-definition))
230 (defgeneric (setf slot-definition-writers) (new-value slot-definition))
234 (defgeneric accessor-method-class (method))
236 (defgeneric accessor-method-slot-name (m))
238 (defgeneric class-default-initargs (class))
240 (defgeneric class-direct-default-initargs (class))
242 (defgeneric class-direct-slots (class))
244 (defgeneric class-finalized-p (class))
246 (defgeneric class-prototype (class))
248 (defgeneric class-slot-cells (class))
250 (defgeneric class-slots (class))
252 (defgeneric compute-class-precedence-list (root))
254 (defgeneric compute-default-initargs (class))
256 (defgeneric compute-discriminating-function (gf))
258 (defgeneric compute-discriminating-function-arglist-info (generic-function))
260 (defgeneric compute-slots (class))
262 (defgeneric finalize-inheritance (class))
264 (defgeneric function-keywords (method))
266 (defgeneric generic-function-argument-precedence-order (gf))
268 (defgeneric generic-function-lambda-list (gf))
270 (defgeneric generic-function-pretty-arglist (generic-function))
272 (defgeneric gf-fast-method-function-p (gf))
274 (defgeneric initialize-internal-slot-functions (slotd))
276 (defgeneric make-instances-obsolete (class))
278 (defgeneric method-function (method))
280 (defgeneric method-lambda-list (m))
282 (defgeneric method-pretty-arglist (method))
284 (defgeneric method-qualifiers (m))
286 (defgeneric method-specializers (m))
288 (defgeneric raw-instance-allocator (class))
290 (defgeneric slot-definition-allocation (slotd))
292 (defgeneric slots-fetcher (class))
294 (defgeneric specializer-class (specializer))
296 (defgeneric specializer-direct-generic-functions (specializer))
298 (defgeneric specializer-direct-methods (specializer))
300 (defgeneric specializer-method-table (specializer))
302 (defgeneric update-constructors (class))
304 (defgeneric wrapper-fetcher (class))
308 (defgeneric add-dependent (metaobject dependent))
310 (defgeneric add-direct-method (specializer method))
312 (defgeneric add-direct-subclass (class subclass))
314 (defgeneric add-method (generic-function method))
316 (defgeneric (setf class-slot-cells) (new-value class))
318 (defgeneric class-slot-value (class slot-name))
320 (defgeneric compatible-meta-class-change-p (class proto-new-class))
322 (defgeneric compute-applicable-methods (generic-function arguments))
324 (defgeneric compute-applicable-methods-using-classes
325 (generic-function classes))
327 (defgeneric compute-effective-slot-definition-initargs (class direct-slotds))
329 (defgeneric describe-object (object stream))
331 (defgeneric direct-slot-definition-class (class &rest initargs))
333 (defgeneric effective-slot-definition-class (class &rest initargs))
335 (defgeneric legal-documentation-p (object x))
337 (defgeneric legal-method-function-p (object x))
339 (defgeneric legal-qualifier-p (object x))
341 (defgeneric legal-qualifiers-p (object x))
343 (defgeneric legal-slot-name-p (object x))
345 (defgeneric legal-specializer-p (object x))
347 (defgeneric legal-specializers-p (object x))
349 (defgeneric make-boundp-method-function (class slot-name))
351 (defgeneric make-reader-method-function (class slot-name))
353 (defgeneric make-writer-method-function (class slot-name))
355 (defgeneric map-dependents (metaobject function))
357 (defgeneric remove-boundp-method (class generic-function))
359 (defgeneric remove-dependent (metaobject dependent))
361 (defgeneric remove-direct-method (specializer method))
363 (defgeneric remove-direct-subclass (class subclass))
365 (defgeneric remove-method (generic-function method))
367 (defgeneric remove-reader-method (class generic-function))
369 (defgeneric remove-writer-method (class generic-function))
371 (defgeneric same-specializer-p (specl1 specl2))
373 (defgeneric slot-accessor-function (slotd type))
375 (defgeneric slot-accessor-std-p (slotd type))
377 ;;; This controls DESCRIBE-OBJECT (SLOT-OBJECT STREAM) behavior.
378 (defgeneric slots-to-inspect (class object))
380 (defgeneric update-gf-dfun (class gf))
382 (defgeneric validate-superclass (class superclass))
384 (defgeneric (setf documentation) (new-value slotd doc-type)
385 (:argument-precedence-order doc-type slotd new-value))
387 (defgeneric documentation (slotd doc-type)
388 (:argument-precedence-order doc-type slotd))
392 (defgeneric add-boundp-method (class generic-function slot-name))
394 (defgeneric add-reader-method (class generic-function slot-name))
396 (defgeneric add-writer-method (class generic-function slot-name))
398 (defgeneric (setf class-slot-value) (nv class slot-name))
400 ;;; CMUCL comment (from Gerd Moellmann/Pierre Mai, 2002-10-19):
402 ;;; According to AMOP, COMPUTE-EFFECTIVE-METHOD should return two
403 ;;; values. Alas, the second value is only vaguely described in AMOP,
404 ;;; and, when asked on 2002-10-18, Gregor Kiczales said he couldn't
405 ;;; remember what the second value was supposed to be. So, PCL's
406 ;;; COMPUTE-EFFECTIVE-METHOD returns one value as do Allegro and
408 (defgeneric compute-effective-method (generic-function
412 (defgeneric compute-effective-slot-definition (class name dslotds))
414 (defgeneric compute-slot-accessor-info (slotd type gf))
416 (defgeneric default-initargs (class initargs defaults))
418 (defgeneric find-method-combination (generic-function type options))
420 (defgeneric invalid-qualifiers (generic-function combin method))
422 (defgeneric (setf slot-accessor-function) (function slotd type))
424 (defgeneric (setf slot-accessor-std-p) (value slotd type))
426 (defgeneric slot-boundp-using-class (class object slotd))
428 (defgeneric slot-makunbound-using-class (class object slotd))
430 (defgeneric slot-unbound (class instance slot-name))
432 (defgeneric slot-value-using-class (class object slotd))
436 (defgeneric make-method-lambda (proto-generic-function
441 (defgeneric (setf slot-value-using-class) (new-value class object slotd))
445 (defgeneric make-method-initargs-form (proto-generic-function
451 ;;;; optional arguments
453 (defgeneric get-method (generic-function
458 (defgeneric find-method (generic-function
463 (defgeneric slot-missing (class
467 &optional new-value))
471 (defgeneric allocate-instance (class &rest initargs))
473 (defgeneric ensure-class-using-class (class
476 &key &allow-other-keys))
478 (defgeneric ensure-generic-function-using-class (generic-function
480 &key &allow-other-keys))
482 (defgeneric initialize-instance (gf &key &allow-other-keys))
484 (defgeneric make-instance (class &rest initargs &key &allow-other-keys))
486 (defgeneric change-class (instance new-class-name &rest initargs &key &allow-other-keys))
488 (defgeneric no-applicable-method (generic-function &rest args))
490 (defgeneric no-next-method (generic-function method &rest args))
492 (defgeneric no-primary-method (generic-function &rest args))
494 (defgeneric reader-method-class (class direct-slot &rest initargs))
496 (defgeneric reinitialize-instance (gf &rest args &key &allow-other-keys))
498 (defgeneric shared-initialize (generic-function
500 &key &allow-other-keys))
502 (defgeneric update-dependent (metaobject dependent &rest initargs))
504 (defgeneric update-instance-for-different-class (previous
508 (defgeneric update-instance-for-redefined-class (instance
514 (defgeneric writer-method-class (class direct-slot &rest initargs))