Changeset 13397
- Timestamp:
- 07/12/11 09:21:59 (12 years ago)
- Location:
- trunk/abcl/contrib/jss
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/contrib/jss/invoke.lisp
r13360 r13397 551 551 collect item))) 552 552 553 (defun list-to-list (list)553 (defun jlist-to-list (list) 554 554 (declare (optimize (speed 3) (safety 0))) 555 555 (with-constant-signature ((isEmpty "isEmpty") (getfirst "getFirst") … … 558 558 collect (getFirst list) 559 559 do (setq list (getNext list))))) 560 561 ;;; Deprecated 562 (setf (symbol-function 'list-to-list) #'jlist-to-list) 560 563 561 564 ;; Contribution of Luke Hope. (Thanks!) -
trunk/abcl/contrib/jss/jss.asd
r13396 r13397 4 4 (defsystem :jss 5 5 :author "Alan Ruttenberg, Mark Evenson" 6 :version "2. 1.1"6 :version "2.2.0" 7 7 :components 8 8 ((:module base :pathname "" :serial t -
trunk/abcl/contrib/jss/packages.lisp
r13396 r13397 22 22 #:hashmap-to-hashtable 23 23 #:iterable-to-list 24 #: list-to-list24 #:jlist-to-list 25 25 #:set-to-list 26 26 #:vector-to-list 27 27 28 28 ;;; deprecated 29 30 29 #:get-java-field ; use JAVA:JFIELD 30 #:list-to-list 31 31 32 32 ;;; Move to JAVA? 33 33 #:jclass-all-interfaces 34 35 34 36 35 ;;; Enable compatibility with jss-1.0 by placing symbols in CL-USER
Note: See TracChangeset
for help on using the changeset viewer.