Changeset 12315

Timestamp:

12/30/09 22:46:31 (14 years ago)

Author:

astalla

Message:

Implemented (setf jfield).

File:

• trunk/abcl/src/org/armedbear/lisp/java.lisp (modified) (2 diffs)

trunk/abcl/src/org/armedbear/lisp/java.lisp

@@ -218 +218 @@
   (jcall (jmethod "java.lang.reflect.Field" "getName") field))
 
+
+(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)))
+
 (defun jclass-methods (class &key declared public)
   "Return a vector of all (or just the declared/public, if DECLARED/PUBLIC is true) methods of CLASS"
@@ -228 +236 @@
   (jcall (jmethod "java.lang.reflect.Method" "getParameterTypes") method))
 
-;; (defun jmethod-return-type (method)
-;;   "Returns the result type (Java class) of the METHOD"
-;;   (jcall (jmethod "java.lang.reflect.Method" "getReturnType") method))
+(defun jmethod-return-type (method)
+  "Returns the result type (Java class) of the METHOD"
+  (jcall (jmethod "java.lang.reflect.Method" "getReturnType") method))
+
+(defun jmethod-declaring-class (method)
+  "Returns the Java class declaring METHOD"
+  (jcall (jmethod "java.lang.reflect.Method" "getDeclaringClass") method))
 
 (defun jmethod-name (method)