Changeset 13397

Timestamp:

07/12/11 09:21:59 (12 years ago)

Author:

Mark Evenson

Message:

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

Location:

trunk/abcl/contrib/jss

Files:

• invoke.lisp (modified) (2 diffs)
• jss.asd (modified) (1 diff)
• packages.lisp (modified) (1 diff)

trunk/abcl/contrib/jss/invoke.lisp

@@ -551 +551 @@
        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")
@@ -558 +558 @@
        collect (getFirst list)
        do (setq list (getNext list)))))
+
+;;; Deprecated
+(setf (symbol-function 'list-to-list) #'jlist-to-list)
 
 ;; Contribution of Luke Hope. (Thanks!)

trunk/abcl/contrib/jss/jss.asd

@@ -4 +4 @@
 (defsystem :jss
   :author "Alan Ruttenberg, Mark Evenson"
-  :version "2.1.1" 
+  :version "2.2.0" 
   :components 
   ((:module base :pathname "" :serial t 

trunk/abcl/contrib/jss/packages.lisp

@@ -22 +22 @@
    #: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