]> code.delx.au - gnu-emacs/blobdiff - test/automated/eieio-test-methodinvoke.el
* lisp/emacs-lisp/eieio*.el: Align a bit better with CLOS
[gnu-emacs] / test / automated / eieio-test-methodinvoke.el
index da5f59a4654b2b585054b9a938317a515709952c..62f5603d3b67f7c3d7f3effac1d3f8033ab9faf6 100644 (file)
   (if (next-method-p) (call-next-method))
   )
 
-(defmethod eieio-constructor :STATIC ((p C-base2) &rest args)
+(defmethod make-instance :STATIC ((p C-base2) &rest args)
   (eieio-test-method-store :STATIC 'C-base2)
   (if (next-method-p) (call-next-method))
   )
 
-(defmethod eieio-constructor :STATIC ((p C) &rest args)
+(defmethod make-instance :STATIC ((p C) &rest args)
   (eieio-test-method-store :STATIC 'C)
   (call-next-method)
   )