JSS 3.5.0 introduces JSS:JMAP

Fix tests for JSS:J2LIST.

Add failing test for JSS:JMAP which reports

  × Raised an error yet another iteration type - fix it: [Ljava.lang.Integer; (expected: "Checking JSS:MAP on Java array of java.lang.Integer…")

contrib/jss/invoke.lisp

@@ -89,6 +89,7 @@
 ;;   - Maybe get rid of second " in reader macro. #"toString looks nicer, but might 
 ;;     confuse lisp mode.
 ;;   - write jmap, analogous to map, but can take java collections, java arrays etc.
+;;      In progress with jss-3.5.0's JSS:MAP
 ;;   - write loop clauses for java collections. 
 ;;   - Register classes in .class files below classpath directories (when :wild-inferiors works)
 ;;   - Make documentation like Edi Weitz

contrib/jss/jss.asd

@@ -2,7 +2,7 @@
 (defsystem jss
   :author "Alan Ruttenberg, Mark Evenson"
   :long-description "<urn:abcl.org/release/1.6.0/contrib/jss#>"
-  :version "3.4.0" 
+  :version "3.5.0" 
   :components ((:module base 
                         :pathname "" :serial t 
                         :components ((:file "packages")

contrib/jss/t/collections.lisp

@@ -1,12 +1,13 @@
 (in-package :cl-user)
 
-(let ((set (list '(2 3 5 7 11))))
-  (prove:plan 1)
+(let ((set (list 2 3 5 7 11)))
+  (prove:plan 2)
   (prove:is-type (jss:to-hashset set)
                  'java:java-object
-                 "Checking whether JSS:TO-HASHSET produces a Java object…"))
+                 "Checking whether JSS:TO-HASHSET produces a Java object…")
+  (prove:ok (jss:jmap 'constantly
+                      (java:jnew-array "java.lang.Integer" 10))
+            "Checking JSS:MAP on Java array of java.lang.Integer…"))
 
 (prove:finalize)
 
-
-