Changeset 14599

Timestamp:

01/09/14 11:00:46 (9 years ago)

Author:

Mark Evenson

Message:

jss: Suppress Java language access checking for GET-JAVA-FIELD and the autoimports strategy.

On #abcl, <ferada> notes "if it's correct that T is passed to java
methods not as native 'true', then i think jss:get-java-field needs a
fix like <​http://paste.lisp.org/display/140832>."

Lisp 'T' should be a synonym for Java 'true' in method calls. I think
it worked as such once, and should again

In the longer term, all the accesibility stategy Java language checks
should happen in the JAVA package with the possibility setting a
per-thread special variable that enforces the JVM policy.

File:

• trunk/abcl/contrib/jss/invoke.lisp (modified) (3 diffs)

trunk/abcl/contrib/jss/invoke.lisp

@@ -328 +328 @@
                          (find field (#"getDeclaredFields" class) 
                                :key 'jfield-name :test 'equal))))
-  (#"setAccessible" jfield t)
+  (#"setAccessible" jfield +true+)
   (values (#"get" jfield object) jfield))
       (if (symbolp object)
@@ -351 +351 @@
        field
            (find field (#"getDeclaredFields" class) :key 'jfield-name :test 'equal))))
-  (#"setAccessible" jfield t)
+  (#"setAccessible" jfield +true+)
   (values (#"set" jfield object value) jfield))
     (if (symbolp object)
@@ -462 +462 @@
    (find "classes" (#"getDeclaredFields" (jclass "java.lang.ClassLoader"))
          :key #"getName" :test 'equal)))
-    (#"setAccessible" classes-field t)
+    (#"setAccessible" classes-field +true+)
     (loop for classloader in (mapcar #'first (dump-classpath))
    append