CEDET

Hi

  Accessors for slots whose the allocation slot option is :class would
have to be :static methods, wouldn't they?

  Is this patch of some help?

*** eieio.el-orig	Fri Jul 30 19:59:54 2004
--- eieio.el	Mon Mar  7 14:45:11 2005
***************
*** 520,526 ****
  	(if acces
  	    (progn
  	      (eieio-defmethod acces
! 		(list (list (list 'this cname))
  		      (format
  		       "Retrieves the slot `%s' from an object of class `%s'"
  		       name cname)
--- 520,527 ----
  	(if acces
  	    (progn
  	      (eieio-defmethod acces
! 		(list (if (eq alloc ':class) ':STATIC ':PRIMARY)
!                       (list (list 'this cname))
  		      (format
  		       "Retrieves the slot `%s' from an object of class `%s'"
  		       name cname)

--drkm

[CEDET-devel] Re: [eieio] Generate :static accessors for :class allocated slots From: drkm <darkman_spam@ya...> - 2005-03-11 18:06 drkm writes: > Accessors for slots whose the allocation slot option is :class would > have to be :static methods, wouldn't they? Sorry, I didn't give any reproductible problem. Here it is: (defclass A () ((:slot :initform nil :accessor A-slot :allocation :class))) (A-slot (A nil)) (A-slot A) The first call success (strangely, regarding the fact static methods don't works with instances :-p). But not the second one: Debugger entered--Lisp error: (no-method-definition A-slot (A)) Regards, --drkm

Re[1]: [CEDET-devel] [eieio] Generate :static accessors for :class allocated slots From: Eric M. Ludlam <eric@si...> - 2005-04-14 19:01 Good idea. I've checked in a version and test of this. Eric >>> drkm <darkman_spam@...> seems to think that: > Hi > > Accessors for slots whose the allocation slot option is :class would >have to be :static methods, wouldn't they? > > Is this patch of some help? > >*** eieio.el-orig Fri Jul 30 19:59:54 2004 >--- eieio.el Mon Mar 7 14:45:11 2005 >*************** >*** 520,526 **** > (if acces > (progn > (eieio-defmethod acces >! (list (list (list 'this cname)) > (format > "Retrieves the slot `%s' from an object of class `%s'" > name cname) >--- 520,527 ---- > (if acces > (progn > (eieio-defmethod acces >! (list (if (eq alloc ':class) ':STATIC ':PRIMARY) >! (list (list 'this cname)) > (format > "Retrieves the slot `%s' from an object of class `%s'" > name cname) > >--drkm > > > >------------------------------------------------------- >SF email is sponsored by - The IT Product Guide >Read honest & candid reviews on hundreds of IT Products from real users. >Discover which products truly live up to the hype. Start reading now. >http://ads.osdn.com/?ad_id=6595&alloc_id=14396&op=click >_______________________________________________ >Cedet-devel mailing list >Cedet-devel@... >https://lists.sourceforge.net/lists/listinfo/cedet-devel > -- Eric Ludlam: zappo@..., eric@... Home: http://www.ludlam.net Siege: http://www.siege-engine.com Emacs: http://cedet.sourceforge.net GNU: http://www.gnu.org

1 message has been excluded from this view by a project administrator.