[armedbear-devel] SETF for JFEILDS

[Alessio Stalla]

On Mon, Nov 23, 2009 at 2:36 PM,  <logicmoo at gmail.com> wrote:
> Does anyone object to adding this to java.lisp? If not could it be done?
>
> (defun (setf jfield)
>   (newvalue class-ref-or-field field-or-instance &optional ( instance :noinst) (value :novalue))
>   (if (eq instance :noinst)
>     (jfield class-ref-or-field field-or-instance newvalue)
>     (jfield class-ref-or-field field-or-instance instance newvalue)))

It seems a nice idea to me, but there are a couple of things that I
don't understand:

- why :noinst and not simply nil?
- value is not used, what's the point of it?

A.

> ----- Original Message -----
> From: <dmiles at users.sourceforge.net>
> To: "Armed Bear" <armedbear-devel at common-lisp.net>
> Sent: Tuesday, November 10, 2009 12:24 AM
> Subject: SETF for JFEILDS
>
>
>> Hi,
>>
>> Could we add add something like this to java.lisp?
>>
>> (defun (setf jfield)
>>   (newvalue class-ref-or-field field-or-instance &optional ( instance :noinst) (value :novalue))
>>   (if (eq instance :noinst)
>>     (jfield class-ref-or-field field-or-instance newvalue)
>>     (jfield class-ref-or-field field-or-instance instance newvalue)))
>>
>> -Thx
>
> _______________________________________________
> armedbear-devel mailing list
> armedbear-devel at common-lisp.net
> http://common-lisp.net/cgi-bin/mailman/listinfo/armedbear-devel
>