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

[mevenson at common-lisp.net]

Author: mevenson
Date: Tue Jul 12 02:21:59 2011
New Revision: 13397

Log:
Rename as JSS:JLIST-TO-LIST to align with JAVA conventions.

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

Modified: trunk/abcl/contrib/jss/invoke.lisp
==============================================================================
--- trunk/abcl/contrib/jss/invoke.lisp	Tue Jul 12 01:51:08 2011	(r13396)
+++ trunk/abcl/contrib/jss/invoke.lisp	Tue Jul 12 02:21:59 2011	(r13397)
@@ -550,7 +550,7 @@
        for item = (next iterator)
        collect item)))
 
-(defun list-to-list (list)
+(defun jlist-to-list (list)
   (declare (optimize (speed 3) (safety 0)))
   (with-constant-signature ((isEmpty "isEmpty") (getfirst "getFirst")
 			    (getNext "getNext"))
@@ -558,6 +558,9 @@
        collect (getFirst list)
        do (setq list (getNext list)))))
 
+;;; Deprecated
+(setf (symbol-function 'list-to-list) #'jlist-to-list)
+
 ;; Contribution of Luke Hope. (Thanks!)
 
 (defun iterable-to-list (iterable)

Modified: trunk/abcl/contrib/jss/jss.asd
==============================================================================
--- trunk/abcl/contrib/jss/jss.asd	Tue Jul 12 01:51:08 2011	(r13396)
+++ trunk/abcl/contrib/jss/jss.asd	Tue Jul 12 02:21:59 2011	(r13397)
@@ -3,7 +3,7 @@
 
 (defsystem :jss
   :author "Alan Ruttenberg, Mark Evenson"
-  :version "2.1.1" 
+  :version "2.2.0" 
   :components 
   ((:module base :pathname "" :serial t 
             :components ((:file "packages")

Modified: trunk/abcl/contrib/jss/packages.lisp
==============================================================================
--- trunk/abcl/contrib/jss/packages.lisp	Tue Jul 12 01:51:08 2011	(r13396)
+++ trunk/abcl/contrib/jss/packages.lisp	Tue Jul 12 02:21:59 2011	(r13397)
@@ -21,18 +21,17 @@
 ;;; Useful utilities to convert common Java items to Lisp counterparts
    #:hashmap-to-hashtable
    #:iterable-to-list
-   #:list-to-list
+   #:jlist-to-list
    #:set-to-list
    #:vector-to-list
 
 ;;; deprecated
-
    #:get-java-field ; use JAVA:JFIELD
+   #:list-to-list
 
 ;;; Move to JAVA?
    #:jclass-all-interfaces
 
-
 ;;; Enable compatibility with jss-1.0 by placing symbols in CL-USER
    #:ensure-compatibility #:*cl-user-compatibility*)
    (:shadow #:add-to-classpath))