[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