[armedbear-devel] SETF for JFEILDS

[logicmoo at gmail.com]

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))) 


----- 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