/[gcl]/gcl/pcl/pcl_generic_functions.lisp
ViewVC logotype

Diff of /gcl/pcl/pcl_generic_functions.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by camm, Wed Feb 26 22:21:42 2003 UTC revision 1.2 by camm, Fri Oct 10 03:35:53 2003 UTC
# Line 46  Line 46 
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)
# Line 133  Line 137 
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    
# Line 145  Line 152 
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    
# Line 264  Line 274 
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    
# Line 484  Line 497 
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)
# Line 564  Line 579 
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    
# Line 622  Line 639 
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))
# Line 693  Line 724 
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)
# Line 703  Line 737 
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))
# Line 738  Line 772 
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    

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26