Changeset 14226 for trunk/abcl/contrib/jss/invoke.lisp

Timestamp:

10/30/12 12:07:03 (8 years ago)

Author:

Mark Evenson

Message:

Re #259: fix JSS:JLIST-TO-LIST.

This fixes the immediate problem, but leave the ticket open as far as
I can tell the following code fails in ABCL, but succeeds in the
equivalent Java code indicating we need to fix
Java.isApplicableMethod():

(jstatic "asList" "java.util.Arrays" (java:jnew-array (jclass "int") 1))

File:

• trunk/abcl/contrib/jss/invoke.lisp (modified) (1 diff)

trunk/abcl/contrib/jss/invoke.lisp

@@ -534 +534 @@
   "Convert the Java array named by JARRARY into a Lisp list."
   (declare (optimize (speed 3) (safety 0)))
-  (jlist-to-list
-   (jstatic "asList" "java.util.Arrays" jarray)))
+  (loop :for i :from 0 :below (jarray-length jarray)
+     :collecting (jarray-ref jarray i)))
 
 ;;; Deprecated