/[cmucl]/src/pcl/generic-functions.lisp
ViewVC logotype

Contents of /src/pcl/generic-functions.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.29 - (show annotations)
Fri Mar 19 15:19:03 2010 UTC (4 years, 1 month ago) by rtoy
Branch: MAIN
CVS Tags: sparc-tramp-assem-base, post-merge-intl-branch, release-20b-pre1, release-20b-pre2, sparc-tramp-assem-2010-07-19, GIT-CONVERSION, cross-sol-x86-merged, RELEASE_20b, cross-sol-x86-base, snapshot-2010-12, snapshot-2010-11, snapshot-2011-09, snapshot-2011-06, snapshot-2011-07, snapshot-2011-04, snapshot-2011-02, snapshot-2011-03, snapshot-2011-01, snapshot-2010-05, snapshot-2010-04, snapshot-2010-07, snapshot-2010-06, snapshot-2010-08, cross-sol-x86-2010-12-20, cross-sparc-branch-base, HEAD
Branch point for: cross-sparc-branch, RELEASE-20B-BRANCH, sparc-tramp-assem-branch, cross-sol-x86-branch
Changes since 1.28: +2 -1 lines
Merge intl-branch 2010-03-18 to HEAD.  To build, you need to use
boot-2010-02-1 as the bootstrap file.  You should probably also use
the new -P option for build.sh to generate and update the po files
while building.
1 ;;;-*-Mode:LISP; Package:PCL; Base:10; Syntax:Common-lisp -*-
2
3 (file-comment
4 "$Header: /tiger/var/lib/cvsroots/cmucl/src/pcl/generic-functions.lisp,v 1.29 2010/03/19 15:19:03 rtoy Rel $")
5 ;;;
6
7 (in-package :pcl)
8 (intl:textdomain "cmucl")
9
10 ;;; class predicates
11 (defgeneric class-eq-specializer-p (object))
12 ; (t)
13 ; (class-eq-specializer)
14
15 (defgeneric classp (object))
16 ; (t)
17 ; (class)
18
19 (defgeneric eql-specializer-p (object))
20 ; (t)
21 ; (eql-specializer)
22
23 (defgeneric exact-class-specializer-p (object))
24 ; (t)
25 ; (exact-class-specializer)
26
27 (defgeneric forward-referenced-class-p (object))
28 ; (t)
29 ; (forward-referenced-class)
30
31 (defgeneric funcallable-standard-class-p (object))
32 ; (t)
33 ; (funcallable-standard-class)
34
35 (defgeneric generic-function-p (object))
36 ; (t)
37 ; (generic-function)
38
39 (defgeneric legal-lambda-list-p (object x))
40 ; (standard-method t)
41
42 (defgeneric method-combination-p (object))
43 ; (t)
44 ; (method-combination)
45
46 (defgeneric method-p (object))
47 ; (t)
48 ; (method)
49
50 (defgeneric short-method-combination-p (object))
51 ; (short-method-combination)
52 ; (t)
53
54 (defgeneric slot-class-p (object))
55 ; (t)
56 ; (slot-class)
57
58 (defgeneric specializerp (object))
59 ; (t)
60 ; (specializer)
61
62 (defgeneric standard-accessor-method-p (object))
63 ; (t)
64 ; (standard-accessor-method)
65
66 (defgeneric standard-boundp-method-p (object))
67 ; (t)
68 ; (standard-boundp-method)
69
70 (defgeneric standard-class-p (object))
71 ; (t)
72 ; (standard-class)
73
74 (defgeneric standard-generic-function-p (object))
75 ; (t)
76 ; (standard-generic-function)
77
78 (defgeneric standard-method-p (object))
79 ; (t)
80 ; (standard-method)
81
82 (defgeneric standard-reader-method-p (object))
83 ; (t)
84 ; (standard-reader-method)
85
86 (defgeneric standard-writer-method-p (object))
87 ; (t)
88 ; (standard-writer-method)
89
90 (defgeneric structure-class-p (object))
91 (defgeneric condition-class-p (object))
92
93 ;;; readers
94 (defgeneric accessor-method-slot-definition (standard-accessor-method))
95 ; (standard-accessor-method)
96
97 (defgeneric class-can-precede-list (pcl-class))
98 ; (pcl-class)
99
100 (defgeneric class-defstruct-constructor (structure-class))
101 ; (structure-class)
102
103 (defgeneric class-defstruct-form (structure-class))
104 ; (structure-class)
105
106 (defgeneric class-direct-subclasses (class))
107 ; (class)
108
109 (defgeneric class-direct-superclasses (class))
110 ; (class)
111
112 (defgeneric class-eq-specializer (class))
113 ; (class)
114
115 (defgeneric class-incompatible-superclass-list (pcl-class))
116 ; (pcl-class)
117
118 (defgeneric class-name (class))
119 ; (class)
120
121 (defgeneric class-precedence-list (pcl-class))
122 ; (pcl-class)
123
124 (defgeneric class-predicate-name (class))
125 ; (class)
126
127 (defgeneric class-wrapper (pcl-class))
128 ; (pcl-class)
129
130 (defgeneric definition-source (definition-source-mixin))
131 ; (definition-source-mixin)
132
133 (defgeneric eql-specializer-object (eql-specializer))
134 ; (eql-specializer)
135
136 (defgeneric generic-function-method-class (standard-generic-function))
137 ; (standard-generic-function)
138
139 (defgeneric generic-function-method-combination (standard-generic-function))
140 ; (standard-generic-function)
141
142 (defgeneric generic-function-methods (standard-generic-function))
143 ; (standard-generic-function)
144
145 (defgeneric generic-function-name (standard-generic-function))
146 ; (standard-generic-function)
147
148 (defgeneric generic-function-argument-precedence-order (generic-function))
149 ; (standard-generic-function)
150
151 (defgeneric gf-arg-info (standard-generic-function))
152 ; (standard-generic-function)
153
154 (defgeneric gf-dfun-state (standard-generic-function))
155 ; (standard-generic-function)
156
157 (defgeneric gf-pretty-arglist (standard-generic-function))
158 ; (standard-generic-function)
159
160 (defgeneric long-method-combination-function (long-method-combination))
161 ; (long-method-combination)
162
163 (defgeneric method-combination-documentation (standard-method-combination))
164 ; (standard-method-combination)
165
166 (defgeneric method-combination-options (standard-method-combination))
167 ; (standard-method-combination)
168
169 (defgeneric method-combination-type (standard-method-combination))
170 ; (standard-method-combination)
171
172 (defgeneric method-fast-function (standard-method))
173 ; (standard-method)
174
175 (defgeneric method-generic-function (standard-method))
176 ; (traced-method)
177 ; (standard-method)
178
179 (defgeneric object-plist (plist-mixin))
180 ; (plist-mixin)
181
182 (defgeneric short-combination-identity-with-one-argument (short-method-combination))
183 ; (short-method-combination)
184
185 (defgeneric short-combination-operator (short-method-combination))
186 ; (short-method-combination)
187
188 (defgeneric slot-definition-boundp-function (effective-slot-definition))
189 ; (effective-slot-definition)
190
191 (defgeneric slot-definition-class (slot-definition))
192 ; (slot-definition)
193
194 (defgeneric slot-definition-defstruct-accessor-symbol (structure-slot-definition))
195 ; (structure-slot-definition)
196
197 (defgeneric slot-definition-initargs (slot-definition))
198 ; (slot-definition)
199
200 (defgeneric slot-definition-initform (slot-definition))
201 ; (slot-definition)
202
203 (defgeneric slot-definition-initfunction (slot-definition))
204 ; (slot-definition)
205
206 (defgeneric slot-definition-internal-reader-function (structure-slot-definition))
207 ; (structure-slot-definition)
208
209 (defgeneric slot-definition-internal-writer-function (structure-slot-definition))
210 ; (structure-slot-definition)
211
212 (defgeneric slot-definition-location (standard-effective-slot-definition))
213 ; (standard-effective-slot-definition)
214
215 (defgeneric slot-definition-name (slot-definition))
216 ; (slot-definition)
217
218 (defgeneric slot-definition-reader-function (effective-slot-definition))
219 ; (effective-slot-definition)
220
221 (defgeneric slot-definition-readers (slot-definition))
222 ; (slot-definition)
223
224 (defgeneric slot-definition-type (slot-definition))
225 ; (slot-definition)
226
227 (defgeneric slot-definition-writer-function (effective-slot-definition))
228 ; (effective-slot-definition)
229
230 (defgeneric slot-definition-writers (slot-definition))
231 ; (slot-definition)
232
233 (defgeneric specializer-object (class-eq-specializer))
234 ; (eql-specializer)
235 ; (class-prototype-specializer)
236 ; (class-eq-specializer)
237
238 (defgeneric specializer-type (specializer))
239 ; (specializer)
240
241
242 ;;; writers
243 (defgeneric (setf class-defstruct-constructor) (new-value structure-class))
244 ; (t structure-class)
245
246 (defgeneric (setf class-defstruct-form) (new-value structure-class))
247 ; (t structure-class)
248
249 (defgeneric (setf class-direct-slots) (new-value slot-class))
250 ; (t slot-class)
251
252 (defgeneric (setf class-incompatible-superclass-list) (new-value pcl-class))
253 ; (t pcl-class)
254
255 (defgeneric (setf class-name) (new-value class))
256 ; (t class)
257
258 (defgeneric (setf class-slots) (new-value slot-class))
259 ; (t slot-class)
260
261 (defgeneric (setf generic-function-method-class) (new-value standard-generic-function))
262 ; (t standard-generic-function)
263
264 (defgeneric (setf generic-function-method-combination) (new-value standard-generic-function))
265 ; (t standard-generic-function)
266
267 (defgeneric (setf generic-function-methods) (new-value standard-generic-function))
268 ; (t standard-generic-function)
269
270 (defgeneric (setf generic-function-name) (new-value standard-generic-function))
271 ; (t standard-generic-function)
272
273 (defgeneric (setf gf-dfun-state) (new-value standard-generic-function))
274 ; (t standard-generic-function)
275
276 (defgeneric (setf gf-pretty-arglist) (new-value standard-generic-function))
277 ; (t standard-generic-function)
278
279 (defgeneric (setf method-generic-function) (new-value standard-method))
280 ; (t traced-method)
281 ; (t standard-method)
282
283 (defgeneric (setf object-plist) (new-value plist-mixin))
284 ; (t plist-mixin)
285
286 (defgeneric (setf slot-definition-allocation) (new-value standard-slot-definition))
287 ; (t standard-slot-definition)
288
289 (defgeneric (setf slot-definition-boundp-function) (new-value effective-slot-definition))
290 ; (t effective-slot-definition)
291
292 (defgeneric (setf slot-definition-class) (new-value slot-definition))
293 ; (t slot-definition)
294
295 (defgeneric (setf slot-definition-defstruct-accessor-symbol) (new-value structure-slot-definition))
296 ; (t structure-slot-definition)
297
298 (defgeneric (setf slot-definition-initargs) (new-value slot-definition))
299 ; (t slot-definition)
300
301 (defgeneric (setf slot-definition-initform) (new-value slot-definition))
302 ; (t slot-definition)
303
304 (defgeneric (setf slot-definition-initfunction) (new-value slot-definition))
305 ; (t slot-definition)
306
307 (defgeneric (setf slot-definition-internal-reader-function) (new-value structure-slot-definition))
308 ; (t structure-slot-definition)
309
310 (defgeneric (setf slot-definition-internal-writer-function) (new-value structure-slot-definition))
311 ; (t structure-slot-definition)
312
313 (defgeneric (setf slot-definition-location) (new-value standard-effective-slot-definition))
314 ; (t standard-effective-slot-definition)
315
316 (defgeneric (setf slot-definition-name) (new-value slot-definition))
317 ; (t slot-definition)
318
319 (defgeneric (setf slot-definition-reader-function) (new-value effective-slot-definition))
320 ; (t effective-slot-definition)
321
322 (defgeneric (setf slot-definition-readers) (new-value slot-definition))
323 ; (t slot-definition)
324
325 (defgeneric (setf slot-definition-type) (new-value slot-definition))
326 ; (t slot-definition)
327
328 (defgeneric (setf slot-definition-writer-function) (new-value effective-slot-definition))
329 ; (t effective-slot-definition)
330
331 (defgeneric (setf slot-definition-writers) (new-value slot-definition))
332 ; (t slot-definition)
333
334
335 ;;; 1 argument
336 (defgeneric accessor-method-class (method))
337 ; (standard-accessor-method)
338 ; (standard-writer-method)
339
340 (defgeneric accessor-method-slot-name (m))
341 ; (traced-method)
342 ; (standard-accessor-method)
343
344 (defgeneric class-constructors (class))
345 ; (slot-class)
346
347 (defgeneric class-default-initargs (class))
348 ; (slot-class)
349 ; (built-in-class)
350
351 (defgeneric class-direct-default-initargs (class))
352 ; (slot-class)
353 ; (built-in-class)
354
355 (defgeneric class-direct-slots (class))
356 ; (slot-class)
357 ; (built-in-class)
358
359 (defgeneric class-finalized-p (class))
360 ; (pcl-class)
361
362 (defgeneric class-prototype (class))
363 ; (pcl-class)
364 ; (std-class)
365 ; (structure-class)
366
367 (defgeneric class-slot-cells (class))
368 ; (std-class)
369
370 (defgeneric class-slots (class))
371 ; (slot-class)
372 ; (built-in-class)
373
374 (defgeneric compute-class-precedence-list (root))
375 ; (slot-class)
376
377 (defgeneric compute-default-initargs (class))
378 ; (slot-class)
379
380 (defgeneric compute-discriminating-function (gf))
381 ; (standard-generic-function)
382
383 (defgeneric compute-discriminating-function-arglist-info (generic-function))
384 ; (standard-generic-function)
385
386 (defgeneric compute-slots (class))
387 ; (std-class)
388 ; :around (std-class)
389 ; (structure-class)
390 ; :around (structure-class)
391
392 (defgeneric default-initargs (class initargs defaults))
393
394 (defgeneric finalize-inheritance (class))
395 ; (structure-class)
396 ; (std-class)
397
398 (defgeneric function-keywords (method))
399 ; (standard-method)
400
401 (defgeneric generic-function-lambda-list (gf))
402 ; (generic-function)
403
404 (defgeneric gf-fast-method-function-p (gf))
405 ; (standard-generic-function)
406
407 (defgeneric initialize-internal-slot-functions (slotd))
408 ; (effective-slot-definition)
409
410 (defgeneric make-instances-obsolete (class))
411 ; (std-class)
412 ; (symbol)
413
414 (defgeneric method-function (method))
415 ; (traced-method)
416 ; (standard-method)
417
418 (defgeneric method-lambda-list (m))
419 ; (traced-method)
420 ; (standard-method)
421
422 (defgeneric method-qualifiers (m))
423 ; (traced-method)
424 ; (standard-method)
425
426 (defgeneric method-specializers (m))
427 ; (traced-method)
428 ; (standard-method)
429
430 (defgeneric raw-instance-allocator (class))
431 ; (standard-class)
432 ; (funcallable-standard-class)
433
434 (defgeneric slot-definition-allocation (slotd))
435 ; (standard-slot-definition)
436 ; (structure-slot-definition)
437
438 (defgeneric slots-fetcher (class))
439 ; (standard-class)
440 ; (funcallable-standard-class)
441
442 (defgeneric specializer-class (specializer))
443 ; (class-prototype-specializer)
444 ; (class-eq-specializer)
445 ; (class)
446 ; (eql-specializer)
447
448 (defgeneric specializer-direct-generic-functions (specializer))
449 ; (class)
450 ; (specializer-with-object)
451
452 (defgeneric specializer-direct-methods (specializer))
453 ; (class)
454 ; (specializer-with-object)
455
456 (defgeneric specializer-method-table (specializer))
457 ; (eql-specializer)
458 ; (class-eq-specializer)
459
460 (defgeneric update-constructors (class))
461 ; (slot-class)
462 ; (class)
463
464 (defgeneric wrapper-fetcher (class))
465 ; (standard-class)
466 ; (funcallable-standard-class)
467
468
469 ;;; 2 arguments
470 (defgeneric add-dependent (metaobject dependent))
471 ; (dependent-update-mixin t)
472
473 (defgeneric add-direct-method (specializer method))
474 ; (class method)
475 ; (specializer-with-object method)
476
477 (defgeneric add-direct-subclass (class subclass))
478 ; (class class)
479
480 (defgeneric add-method (generic-function method))
481 ; (standard-generic-function method)
482
483 (defgeneric change-class (instance new-class-name &rest initargs
484 &key &allow-other-keys))
485 ; (standard-object standard-class)
486 ; (funcallable-standard-object funcallable-standard-class)
487 ; (t symbol)
488
489 (defgeneric compatible-meta-class-change-p (class proto-new-class))
490 ; (t t)
491
492 (defgeneric compute-applicable-methods (generic-function arguments))
493 ; (generic-function t)
494
495 (defgeneric compute-applicable-methods-using-classes (generic-function classes))
496 ; (generic-function t)
497
498 (defgeneric compute-effective-slot-definition (class slot-name dslotds))
499
500 (defgeneric compute-effective-slot-definition-initargs (class direct-slotds))
501 ; (slot-class t)
502 ; :around (structure-class t)
503
504 (defgeneric describe-object (object stream))
505 ; (class t)
506 ; (standard-generic-function t)
507 ; (slot-object t)
508 ; (t t)
509
510 (defgeneric direct-slot-definition-class (class &rest initargs))
511 ; (structure-class t)
512 ; (std-class t)
513
514 (defgeneric effective-slot-definition-class (class &rest initargs))
515 ; (std-class t)
516 ; (structure-class t)
517
518 (defgeneric inform-type-system-about-class (class name))
519 ; (std-class t)
520 ; (structure-class t)
521
522 (defgeneric legal-documentation-p (object x))
523 ; (standard-method t)
524
525 (defgeneric legal-method-function-p (object x))
526 ; (standard-method t)
527
528 (defgeneric legal-qualifier-p (object x))
529 ; (standard-method t)
530
531 (defgeneric legal-qualifiers-p (object x))
532 ; (standard-method t)
533
534 (defgeneric legal-slot-name-p (object x))
535 ; (standard-method t)
536
537 (defgeneric legal-specializer-p (object x))
538 ; (standard-method t)
539
540 (defgeneric legal-specializers-p (object x))
541 ; (standard-method t)
542
543 (defgeneric make-boundp-method-function (class slot-name))
544 ; (slot-class t)
545
546 (defgeneric make-reader-method-function (class slot-name))
547 ; (slot-class t)
548 ; (funcallable-standard-class t)
549
550 (defgeneric make-writer-method-function (class slot-name))
551 ; (slot-class t)
552 ; (funcallable-standard-class t)
553
554 (defgeneric map-dependents (metaobject function))
555 ; (dependent-update-mixin t)
556
557 (defgeneric no-next-method (generic-function method &rest args))
558 (defgeneric no-primary-method (generic-function &rest args))
559
560 ;(defgeneric maybe-update-constructors (generic-function method))
561 ; (generic-function method)
562
563 (defgeneric print-object (mc stream))
564 ; (t t)
565 ; (class t)
566 ; (slot-definition t)
567 ; (standard-method t)
568 ; (standard-accessor-method t)
569 ; (generic-function t)
570 ; (standard-method-combination t)
571
572 (defgeneric remove-boundp-method (class generic-function))
573 ; (slot-class t)
574
575 (defgeneric remove-dependent (metaobject dependent))
576 ; (dependent-update-mixin t)
577
578 (defgeneric remove-direct-method (specializer method))
579 ; (class method)
580 ; (specializer-with-object method)
581
582 (defgeneric remove-direct-subclass (class subclass))
583 ; (class class)
584
585 (defgeneric remove-method (generic-function method))
586 ; (standard-generic-function method)
587
588 (defgeneric remove-reader-method (class generic-function))
589 ; (slot-class t)
590
591 (defgeneric remove-writer-method (class generic-function))
592 ; (slot-class t)
593
594 (defgeneric same-specializer-p (specl1 specl2))
595 ; (specializer specializer)
596 ; (class class)
597 ; (class-eq-specializer class-eq-specializer)
598 ; (eql-specializer eql-specializer)
599
600 (defgeneric slot-accessor-function (slotd type))
601 ; (effective-slot-definition t)
602
603 (defgeneric slot-accessor-std-p (slotd type))
604 ; (effective-slot-definition t)
605
606 (defgeneric slots-to-inspect (class object))
607 ; (slot-class slot-object)
608
609 (defgeneric update-gf-dfun (class gf))
610 ; (std-class t)
611
612 (defgeneric validate-superclass (fsc class))
613 ; (class class)
614 ; (class built-in-class)
615 ; (slot-class forward-referenced-class)
616 ; (funcallable-standard-class standard-class)
617
618 (defgeneric (setf documentation) (new-value slotd doc-type)
619 (:argument-precedence-order doc-type slotd new-value))
620 ; (t t)
621 ; (t documentation-mixin)
622 ; (t standard-slot-definition)
623
624 (defgeneric documentation (slotd doc-type)
625 (:argument-precedence-order doc-type slotd))
626 ; (t)
627 ; (documentation-mixin)
628 ; (standard-slot-definition)
629
630
631 ;;; 3 arguments
632 (defgeneric add-boundp-method (class generic-function slot-name))
633 ; (slot-class t t)
634
635 (defgeneric add-reader-method (class generic-function slot-name))
636 ; (slot-class t t)
637
638 (defgeneric add-writer-method (class generic-function slot-name))
639 ; (slot-class t t)
640
641 ;;;
642 ;;; According to AMOP, COMPUTE-EFFECTIVE-METHOD should return two
643 ;;; values. Alas, the second value is only vaguely described in AMOP,
644 ;;; and, when asked on 2002-10-18, Gregor Kiczales said he couldn't
645 ;;; remember what the second value was supposed to be. So, PCL's
646 ;;; COMPUTE-EFFECTIVE-METHOD returns one value as do Allegro and
647 ;;; Lispworks.
648 ;;;
649 (defgeneric compute-effective-method (generic-function combin applicable-methods))
650 ; (generic-function long-method-combination t)
651 ; (generic-function short-method-combination t)
652 ; (generic-function standard-method-combination t)
653
654 (defgeneric compute-slot-accessor-info (slotd type gf))
655 ; (effective-slot-definition t t)
656
657 (defgeneric find-method-combination (generic-function type options))
658 ; (generic-function (eql progn) t)
659 ; (generic-function (eql or) t)
660 ; (generic-function (eql nconc) t)
661 ; (generic-function (eql min) t)
662 ; (generic-function (eql max) t)
663 ; (generic-function (eql list) t)
664 ; (generic-function (eql append) t)
665 ; (generic-function (eql and) t)
666 ; (generic-function (eql +) t)
667 ; (generic-function (eql standard) t)
668
669 (defgeneric (setf slot-accessor-function) (function slotd type))
670 ; (t effective-slot-definition t)
671
672 (defgeneric (setf slot-accessor-std-p) (value slotd type))
673 ; (t effective-slot-definition t)
674
675 (defgeneric slot-boundp-using-class (class object slotd))
676
677 (defgeneric slot-makunbound-using-class (class object slotd))
678
679 (defgeneric slot-unbound (class instance slot-name))
680 ; (t t t)
681
682 (defgeneric slot-value-using-class (class object slotd))
683
684
685 ;;; 4 arguments
686 (defgeneric make-method-lambda (proto-generic-function proto-method lambda-expression environment))
687 ; (standard-generic-function standard-method t t)
688
689 (defgeneric (setf slot-value-using-class) (new-value class object slotd))
690
691
692 ;;; 5 arguments
693 (defgeneric make-method-initargs-form (proto-generic-function proto-method lambda-expression lambda-list environment))
694 ; (standard-generic-function standard-method t t t)
695
696
697 ;;; optional arguments
698 (defgeneric get-method (generic-function qualifiers specializers &optional errorp))
699 ; (standard-generic-function t t)
700
701 (defgeneric find-method (generic-function qualifiers specializers &optional errorp))
702 ; (standard-generic-function t t)
703
704 (defgeneric remove-named-method (generic-function-name argument-specifiers &optional extra))
705 ; (t t)
706
707 (defgeneric slot-missing (class instance slot-name operation &optional new-value))
708 ; (t t t t)
709
710
711 ;;; keyword arguments
712 (defgeneric allocate-instance (class &rest initargs &key &allow-other-keys))
713 ; (standard-class)
714 ; (structure-class)
715 ; (funcallable-standard-class)
716
717 (defgeneric ensure-class-using-class (class name &rest args &key &allow-other-keys))
718 ; (t null)
719 ; (t pcl-class)
720
721 (defgeneric ensure-generic-function-using-class (generic-function function-specifier &key &allow-other-keys))
722 ; (null t)
723 ; (generic-function t)
724
725 (defgeneric initialize-instance (gf &key &allow-other-keys))
726 ; (slot-object)
727 ; :after (standard-generic-function)
728
729 (defgeneric make-instance (class &rest initargs &key &allow-other-keys))
730 ; (symbol)
731 ; (class)
732
733 (defgeneric no-applicable-method (generic-function &rest args))
734 ; (t)
735
736 (defgeneric reader-method-class (class direct-slot &rest initargs))
737 ; (slot-class t)
738
739 (defgeneric reinitialize-instance (gf &rest args &key &allow-other-keys))
740
741 (defgeneric shared-initialize (generic-function slot-names
742 &key &allow-other-keys))
743
744 (defgeneric update-dependent (metaobject dependent &rest initargs))
745
746 (defgeneric update-instance-for-different-class
747 (previous current &rest initargs &key &allow-other-keys))
748
749 (defgeneric update-instance-for-redefined-class
750 (instance added-slots discarded-slots property-list &rest initargs
751 &key &allow-other-keys))
752
753 (defgeneric writer-method-class (class direct-slot &rest initargs))
754
755 (defgeneric invalid-qualifiers (gf combin args methods))
756
757

  ViewVC Help
Powered by ViewVC 1.1.5