[armedbear-cvs] r14226 - trunk/abcl/contrib/jss

[mevenson at common-lisp.net]

Author: mevenson
Date: Tue Oct 30 05:07:03 2012
New Revision: 14226

Log:
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))

Modified:
   trunk/abcl/contrib/jss/invoke.lisp

Modified: trunk/abcl/contrib/jss/invoke.lisp
==============================================================================
--- trunk/abcl/contrib/jss/invoke.lisp	Mon Oct 29 02:30:15 2012	(r14225)
+++ trunk/abcl/contrib/jss/invoke.lisp	Tue Oct 30 05:07:03 2012	(r14226)
@@ -533,8 +533,8 @@
 (defun jarray-to-list (jarray)
   "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 
 ;;;