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 method-combination-p
(object))
31 (defgeneric method-p
(object))
33 (defgeneric short-method-combination-p
(object))
35 (defgeneric slot-class-p
(object))
37 (defgeneric specializerp
(object))
39 (defgeneric standard-accessor-method-p
(object))
41 (defgeneric standard-boundp-method-p
(object))
43 (defgeneric standard-class-p
(object))
45 (defgeneric standard-generic-function-p
(object))
47 (defgeneric standard-method-p
(object))
49 (defgeneric standard-reader-method-p
(object))
51 (defgeneric standard-writer-method-p
(object))
53 (defgeneric structure-class-p
(object))
57 (defgeneric accessor-method-slot-definition
(standard-accessor-method))
59 (defgeneric class-can-precede-list
(pcl-class))
61 (defgeneric class-defstruct-constructor
(structure-class))
63 (defgeneric class-defstruct-form
(structure-class))
65 (defgeneric class-direct-subclasses
(class))
67 (defgeneric class-direct-superclasses
(class))
69 (defgeneric class-eq-specializer
(class))
71 (defgeneric class-incompatible-superclass-list
(pcl-class))
73 (defgeneric class-name
(class))
75 (defgeneric class-precedence-list
(pcl-class))
77 (defgeneric class-wrapper
(pcl-class))
79 (defgeneric definition-source
(definition-source-mixin))
81 (defgeneric eql-specializer-object
(eql-specializer))
83 (defgeneric generic-function-declarations
(standard-generic-function))
85 (defgeneric generic-function-method-class
(standard-generic-function))
87 (defgeneric generic-function-method-combination
(standard-generic-function))
89 (defgeneric generic-function-methods
(standard-generic-function))
91 (defgeneric generic-function-name
(standard-generic-function))
93 (defgeneric gf-arg-info
(standard-generic-function))
95 (defgeneric gf-dfun-state
(standard-generic-function))
97 (defgeneric generic-function-initial-methods
(standard-generic-function))
99 (defgeneric long-method-combination-function
(long-method-combination))
101 (defgeneric method-combination-documentation
(standard-method-combination))
103 (defgeneric method-combination-options
(standard-method-combination))
105 (defgeneric method-combination-type-name
(standard-method-combination))
107 (defgeneric method-generic-function
(standard-method))
109 (defgeneric object-plist
(plist-mixin))
111 (defgeneric short-combination-identity-with-one-argument
112 (short-method-combination))
114 (defgeneric short-combination-operator
(short-method-combination))
116 (defgeneric slot-definition-class
(slot-definition))
118 (defgeneric slot-definition-defstruct-accessor-symbol
119 (structure-slot-definition))
121 (defgeneric slot-definition-initargs
(slot-definition))
123 (defgeneric slot-definition-initform
(slot-definition))
125 (defgeneric slot-definition-initfunction
(slot-definition))
127 (defgeneric slot-definition-internal-reader-function
128 (structure-slot-definition))
130 (defgeneric slot-definition-internal-writer-function
131 (structure-slot-definition))
133 (defgeneric slot-definition-location
(standard-effective-slot-definition))
135 (defgeneric slot-definition-name
(slot-definition))
137 (defgeneric slot-definition-info
(effective-slot-definition))
139 (defgeneric slot-definition-readers
(slot-definition))
141 (defgeneric slot-definition-type
(slot-definition))
143 (defgeneric slot-definition-writers
(slot-definition))
145 (defgeneric specializer-object
(class-eq-specializer))
147 (defgeneric specializer-type
(specializer))
151 (defgeneric (setf class-defstruct-constructor
) (new-value structure-class
))
153 (defgeneric (setf class-defstruct-form
) (new-value structure-class
))
155 (defgeneric (setf class-direct-slots
) (new-value slot-class
))
157 (defgeneric (setf class-incompatible-superclass-list
) (new-value pcl-class
))
159 (defgeneric (setf class-name
) (new-value class
))
161 (defgeneric (setf class-slots
) (new-value slot-class
))
163 (defgeneric (setf generic-function-method-class
) (new-value
164 standard-generic-function
))
166 (defgeneric (setf generic-function-method-combination
)
167 (new-value standard-generic-function
))
169 (defgeneric (setf generic-function-declarations
) (new-value
170 standard-generic-function
))
172 (defgeneric (setf generic-function-methods
) (new-value
173 standard-generic-function
))
175 (defgeneric (setf generic-function-name
) (new-value standard-generic-function
))
177 (defgeneric (setf gf-dfun-state
) (new-value standard-generic-function
))
179 (defgeneric (setf generic-function-initial-methods
)
180 (new-value standard-generic-function
))
182 (defgeneric (setf method-generic-function
) (new-value standard-method
))
184 (defgeneric (setf object-plist
) (new-value plist-mixin
))
186 (defgeneric (setf slot-definition-allocation
) (new-value
187 standard-slot-definition
))
189 (defgeneric (setf slot-definition-class
) (new-value slot-definition
))
191 (defgeneric (setf slot-definition-defstruct-accessor-symbol
)
192 (new-value structure-slot-definition
))
194 (defgeneric (setf slot-definition-initargs
) (new-value slot-definition
))
196 (defgeneric (setf slot-definition-initform
) (new-value slot-definition
))
198 (defgeneric (setf slot-definition-initfunction
) (new-value slot-definition
))
200 (defgeneric (setf slot-definition-internal-reader-function
)
201 (new-value structure-slot-definition
))
203 (defgeneric (setf slot-definition-internal-writer-function
)
204 (new-value structure-slot-definition
))
206 (defgeneric (setf slot-definition-location
)
207 (new-value standard-effective-slot-definition
))
209 (defgeneric (setf slot-definition-name
) (new-value slot-definition
))
211 (defgeneric (setf slot-definition-info
) (new-value effective-slot-definition
))
213 (defgeneric (setf slot-definition-readers
) (new-value slot-definition
))
215 (defgeneric (setf slot-definition-type
) (new-value slot-definition
))
217 (defgeneric (setf slot-definition-writer-function
)
218 (new-value effective-slot-definition
))
220 (defgeneric (setf slot-definition-writers
) (new-value slot-definition
))
224 (defgeneric accessor-method-slot-name
(m))
226 (defgeneric class-default-initargs
(class))
228 (defgeneric class-direct-default-initargs
(class))
230 (defgeneric class-direct-slots
(class))
232 (defgeneric class-finalized-p
(class))
234 (defgeneric class-prototype
(class))
236 (defgeneric class-slot-cells
(class))
238 (defgeneric class-slots
(class))
240 (defgeneric compute-class-precedence-list
(root))
242 (defgeneric compute-default-initargs
(class))
244 (defgeneric compute-discriminating-function
(gf))
246 (defgeneric compute-discriminating-function-arglist-info
(generic-function))
248 (defgeneric compute-slots
(class))
250 (defgeneric finalize-inheritance
(class))
252 (defgeneric function-keywords
(method))
254 (defgeneric function-keyword-parameters
(method))
256 (defgeneric generic-function-argument-precedence-order
(gf))
258 (defgeneric generic-function-lambda-list
(gf))
260 (defgeneric generic-function-pretty-arglist
(generic-function))
262 (defgeneric gf-fast-method-function-p
(gf))
264 (defgeneric initialize-internal-slot-functions
(slotd))
266 (defgeneric make-instances-obsolete
(class))
268 (defgeneric method-function
(method))
270 (defgeneric method-lambda-list
(m))
272 (defgeneric method-qualifiers
(m))
274 (defgeneric method-specializers
(m))
276 (defgeneric raw-instance-allocator
(class))
278 (defgeneric slot-definition-allocation
(slotd))
280 (defgeneric slots-fetcher
(class))
282 (defgeneric specializer-class
(specializer))
284 (defgeneric specializer-direct-generic-functions
(specializer))
286 (defgeneric specializer-direct-methods
(specializer))
288 (defgeneric specializer-method-table
(specializer))
290 (defgeneric update-constructors
(class))
292 (defgeneric wrapper-fetcher
(class))
296 (defgeneric add-dependent
(metaobject dependent
))
298 (defgeneric add-direct-method
(specializer method
))
300 (defgeneric add-direct-subclass
(class subclass
))
302 (defgeneric add-method
(generic-function method
))
304 (defgeneric (setf class-slot-cells
) (new-value class
))
306 (defgeneric class-slot-value
(class slot-name
))
308 (defgeneric compatible-meta-class-change-p
(class proto-new-class
))
310 (defgeneric compute-applicable-methods
(generic-function arguments
))
312 (defgeneric compute-applicable-methods-using-classes
313 (generic-function classes
))
315 (defgeneric compute-effective-slot-definition-initargs
(class direct-slotds
))
317 (defgeneric describe-object
(object stream
))
319 (defgeneric direct-slot-definition-class
(class &rest initargs
))
321 (defgeneric effective-slot-definition-class
(class &rest initargs
))
323 (defgeneric make-boundp-method-function
(class slot-name
))
325 (defgeneric make-reader-method-function
(class slot-name
))
327 (defgeneric make-writer-method-function
(class slot-name
))
329 (defgeneric map-dependents
(metaobject function
))
331 (defgeneric parse-specializer-using-class
(generic-function specializer-name
))
333 (defgeneric remove-boundp-method
(class generic-function
))
335 (defgeneric remove-dependent
(metaobject dependent
))
337 (defgeneric remove-direct-method
(specializer method
))
339 (defgeneric remove-direct-subclass
(class subclass
))
341 (defgeneric remove-method
(generic-function method
))
343 (defgeneric remove-reader-method
(class generic-function
))
345 (defgeneric remove-writer-method
(class generic-function
))
347 (defgeneric same-specializer-p
(specl1 specl2
))
349 (defgeneric slot-accessor-function
(slotd type
))
351 (defgeneric slot-accessor-std-p
(slotd type
))
353 ;;; This controls DESCRIBE-OBJECT (SLOT-OBJECT STREAM) behavior.
354 (defgeneric slots-to-inspect
(class object
))
356 (defgeneric unparse-specializer-using-class
(generic-function specializer
))
358 (defgeneric validate-superclass
(class superclass
))
360 (defgeneric invalid-superclass
(class superclass
))
362 (defgeneric (setf documentation
) (new-value slotd doc-type
)
363 (:argument-precedence-order doc-type slotd new-value
))
365 (defgeneric documentation
(slotd doc-type
)
366 (:argument-precedence-order doc-type slotd
))
370 (defgeneric (setf class-slot-value
) (nv class slot-name
))
372 ;;; CMUCL comment (from Gerd Moellmann/Pierre Mai, 2002-10-19):
374 ;;; According to AMOP, COMPUTE-EFFECTIVE-METHOD should return two
375 ;;; values. Alas, the second value is only vaguely described in AMOP,
376 ;;; and, when asked on 2002-10-18, Gregor Kiczales said he couldn't
377 ;;; remember what the second value was supposed to be. So, PCL's
378 ;;; COMPUTE-EFFECTIVE-METHOD returns one value as do Allegro and
380 (defgeneric compute-effective-method
(generic-function
384 (defgeneric compute-effective-slot-definition
(class name dslotds
))
386 (defgeneric compute-slot-accessor-info
(slotd type gf
))
388 (defgeneric find-method-combination
(generic-function type options
))
390 (defgeneric invalid-qualifiers
(generic-function combin method
))
392 (defgeneric (setf slot-accessor-function
) (function slotd type
))
394 (defgeneric (setf slot-accessor-std-p
) (value slotd type
))
396 (defgeneric slot-boundp-using-class
(class object slotd
))
398 (defgeneric slot-makunbound-using-class
(class object slotd
))
400 (defgeneric slot-unbound
(class instance slot-name
))
402 (defgeneric slot-value-using-class
(class object slotd
))
406 (defgeneric make-method-lambda
407 (proto-generic-function proto-method lambda-expression environment
))
409 (defgeneric make-method-specializers-form
410 (proto-generic-function proto-method specializer-names environment
))
412 (defgeneric (setf slot-value-using-class
) (new-value class object slotd
))
416 ;;; FIXME: This is currently unused -- where should we call it? Or should we just
418 (defgeneric add-boundp-method
(class generic-function slot-name slot-documentation source-location
))
420 (defgeneric add-reader-method
(class generic-function slot-name slot-documentation source-location
))
422 (defgeneric add-writer-method
(class generic-function slot-name slot-documentation source-location
))
424 (defgeneric make-method-initargs-form
425 (proto-generic-function proto-method lambda-expression lambda-list
428 ;;;; optional arguments
430 (defgeneric get-method
(generic-function
435 (defgeneric find-method
(generic-function
440 (defgeneric slot-missing
(class
444 &optional new-value
))
448 ;;; FIXME: make the declared &KEY arguments here agree with those that
450 (defgeneric allocate-instance
(class &rest initargs
))
452 (defgeneric ensure-class-using-class
(class
455 &key
&allow-other-keys
))
457 (defgeneric ensure-generic-function-using-class
(generic-function
459 &key
&allow-other-keys
))
461 (defgeneric initialize-instance
(instance &rest initargs
&key
&allow-other-keys
))
463 (defgeneric make-instance
(class &rest initargs
&key
&allow-other-keys
))
465 (defgeneric change-class
(instance new-class-name
&rest initargs
&key
&allow-other-keys
))
467 (defgeneric no-applicable-method
(generic-function &rest args
))
469 (defgeneric no-next-method
(generic-function method
&rest args
))
471 (defgeneric no-primary-method
(generic-function &rest args
))
473 (defgeneric reader-method-class
(class direct-slot
&rest initargs
))
475 (defgeneric reinitialize-instance
(instance &rest initargs
&key
&allow-other-keys
))
477 (defgeneric shared-initialize
(instance slot-names
&rest initargs
478 &key
&allow-other-keys
))
480 (defgeneric update-dependent
(metaobject dependent
&rest initargs
))
482 (defgeneric update-instance-for-different-class
(previous
486 (defgeneric update-instance-for-redefined-class
(instance
492 (defgeneric writer-method-class
(class direct-slot
&rest initargs
))