[armedbear-devel] SETF for JFEILDS

Alessio Stalla alessiostalla at gmail.com
Tue Dec 22 19:06:17 UTC 2009


On Tue, Nov 24, 2009 at 10:27 PM,  <logicmoo at gmail.com> wrote:
> Thanks, you are right, much better to use the built-in key stuff
>
>  (defun (setf jfield)  (newvalue class-ref-or-field field-or-instance
>                         &optional ( instance nil instance-supplied-p) unused-value)
>  (declare (ignore unused-value))
>  (if instance-supplied-p
>   (jfield class-ref-or-field field-or-instance instance newvalue)
>   (jfield class-ref-or-field field-or-instance newvalue)))

I have tentatively included this code in java.lisp in my local copy of
abcl, with the intention to commit it to trunk. It works like a charm,
but I have a problem: how can I tell abcl to autoload java.lisp if it
sees (setf (jfield ...)) for the first time?

Bye,
Ale




More information about the armedbear-devel mailing list