46 |
; (short-method-combination) |
; (short-method-combination) |
47 |
; (t) |
; (t) |
48 |
|
|
49 |
|
(defgeneric long-method-combination-p (object)) |
50 |
|
; (long-method-combination) |
51 |
|
; (t) |
52 |
|
|
53 |
(defgeneric slot-class-p (object)) |
(defgeneric slot-class-p (object)) |
54 |
; (t) |
; (t) |
55 |
; (slot-class) |
; (slot-class) |
137 |
(defgeneric eql-specializer-object (eql-specializer)) |
(defgeneric eql-specializer-object (eql-specializer)) |
138 |
; (eql-specializer) |
; (eql-specializer) |
139 |
|
|
140 |
|
(defgeneric generic-function-declarations (standard-generic-function)) |
141 |
|
; (standard-generic-function) |
142 |
|
|
143 |
(defgeneric generic-function-method-class (standard-generic-function)) |
(defgeneric generic-function-method-class (standard-generic-function)) |
144 |
; (standard-generic-function) |
; (standard-generic-function) |
145 |
|
|
152 |
(defgeneric generic-function-name (standard-generic-function)) |
(defgeneric generic-function-name (standard-generic-function)) |
153 |
; (standard-generic-function) |
; (standard-generic-function) |
154 |
|
|
155 |
|
(defgeneric generic-function-argument-precedence-order (generic-function)) |
156 |
|
; (standard-generic-function) |
157 |
|
|
158 |
(defgeneric gf-arg-info (standard-generic-function)) |
(defgeneric gf-arg-info (standard-generic-function)) |
159 |
; (standard-generic-function) |
; (standard-generic-function) |
160 |
|
|
274 |
(defgeneric (setf generic-function-method-combination) (new-value standard-generic-function)) |
(defgeneric (setf generic-function-method-combination) (new-value standard-generic-function)) |
275 |
; (t standard-generic-function) |
; (t standard-generic-function) |
276 |
|
|
277 |
|
(defgeneric (setf generic-function-declarations) (new-value standard-generic-function)) |
278 |
|
; (t standard-generic-function) |
279 |
|
|
280 |
(defgeneric (setf generic-function-methods) (new-value standard-generic-function)) |
(defgeneric (setf generic-function-methods) (new-value standard-generic-function)) |
281 |
; (t standard-generic-function) |
; (t standard-generic-function) |
282 |
|
|
497 |
(defgeneric add-method (generic-function method)) |
(defgeneric add-method (generic-function method)) |
498 |
; (standard-generic-function method) |
; (standard-generic-function method) |
499 |
|
|
500 |
(defgeneric change-class (instance new-class-name)) |
;; FIXME make sure this is right |
501 |
|
;(defgeneric change-class (instance new-class-name &rest initargs)) |
502 |
|
(defgeneric change-class (instance new-class-name &key &allow-other-keys)) |
503 |
; (standard-object standard-class) |
; (standard-object standard-class) |
504 |
; (standard-object funcallable-standard-class) |
; (standard-object funcallable-standard-class) |
505 |
; (t symbol) |
; (t symbol) |
579 |
(defgeneric map-dependents (metaobject function)) |
(defgeneric map-dependents (metaobject function)) |
580 |
; (dependent-update-mixin t) |
; (dependent-update-mixin t) |
581 |
|
|
582 |
|
(defgeneric no-next-method (generic-function method &rest args)) |
583 |
|
|
584 |
;(defgeneric maybe-update-constructors (generic-function method)) |
;(defgeneric maybe-update-constructors (generic-function method)) |
585 |
; (generic-function method) |
; (generic-function method) |
586 |
|
|
639 |
; (slot-class forward-referenced-class) |
; (slot-class forward-referenced-class) |
640 |
; (funcallable-standard-class standard-class) |
; (funcallable-standard-class standard-class) |
641 |
|
|
642 |
|
;; FIXME synch with cmucl to use these defs |
643 |
|
|
644 |
|
;(defgeneric (setf documentation) (new-value slotd doc-type) |
645 |
|
; (:argument-precedence-order doc-type slotd new-value)) |
646 |
|
; (t t) |
647 |
|
; (t documentation-mixin) |
648 |
|
; (t standard-slot-definition) |
649 |
|
|
650 |
|
;(defgeneric documentation (slotd doc-type) |
651 |
|
; (:argument-precedence-order doc-type slotd)) |
652 |
|
; (t) |
653 |
|
; (documentation-mixin) |
654 |
|
; (standard-slot-definition) |
655 |
|
|
656 |
|
|
657 |
;;; 3 arguments |
;;; 3 arguments |
658 |
(defgeneric add-boundp-method (class generic-function slot-name)) |
(defgeneric add-boundp-method (class generic-function slot-name)) |
724 |
|
|
725 |
|
|
726 |
;;; optional arguments |
;;; optional arguments |
727 |
|
(defgeneric get-method (generic-function qualifiers specializers &optional errorp)) |
728 |
|
; (standard-generic-function t t) |
729 |
|
(defgeneric find-method (generic-function qualifiers specializers &optional errorp)) |
730 |
(defgeneric (setf documentation) (new-value slotd &optional doc-type)) |
(defgeneric (setf documentation) (new-value slotd &optional doc-type)) |
731 |
; (t t) |
; (t t) |
732 |
; (t documentation-mixin) |
; (t documentation-mixin) |
737 |
; (documentation-mixin) |
; (documentation-mixin) |
738 |
; (standard-slot-definition) |
; (standard-slot-definition) |
739 |
|
|
740 |
(defgeneric get-method (generic-function qualifiers specializers &optional (errorp t))) |
;(defgeneric get-method (generic-function qualifiers specializers &optional (errorp t))) |
741 |
; (standard-generic-function t t) |
; (standard-generic-function t t) |
742 |
|
|
743 |
(defgeneric remove-named-method (generic-function-name argument-specifiers &optional extra)) |
(defgeneric remove-named-method (generic-function-name argument-specifiers &optional extra)) |
772 |
(defgeneric no-applicable-method (generic-function &rest args)) |
(defgeneric no-applicable-method (generic-function &rest args)) |
773 |
; (t) |
; (t) |
774 |
|
|
775 |
|
(defgeneric no-primary-method (generic-function &rest args)) |
776 |
|
|
777 |
(defgeneric reader-method-class (class direct-slot &rest initargs)) |
(defgeneric reader-method-class (class direct-slot &rest initargs)) |
778 |
; (slot-class t) |
; (slot-class t) |
779 |
|
|