Thread: [CEDET-devel] [eieio] Generate :static accessors for :class allocated slots
Brought to you by:
zappo
From: drkm <dar...@ya...> - 2005-03-07 13:53:47
|
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 |
From: drkm <dar...@ya...> - 2005-03-11 18:06:24
|
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 |
From: Eric M. L. <er...@si...> - 2005-04-14 19:01:25
|
Good idea. I've checked in a version and test of this. Eric >>> drkm <dar...@ya...> 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 >Ced...@li... >https://lists.sourceforge.net/lists/listinfo/cedet-devel > -- Eric Ludlam: za...@gn..., er...@si... Home: http://www.ludlam.net Siege: www.siege-engine.com Emacs: http://cedet.sourceforge.net GNU: www.gnu.org |