Changeset 13934
- Timestamp:
- 05/14/12 08:15:51 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/test/lisp/abcl/jar-pathname.lisp
r13704 r13934 43 43 44 44 (defun jar-file-init () 45 "Create the jar archives used for testing. 46 Returns the two values of the pathnames of the created archives." 45 47 (let* ((temp-file (java:jcall "getAbsolutePath" 46 48 (java:jstatic "createTempFile" "java.io.File" "jar" "tmp"))) … … 103 105 (setf *tmp-jar-path-whitespace* 104 106 (merge-pathnames "baz.jar" *tmp-directory-whitespace*)) 105 (cl-fad-copy-file *tmp-jar-path* *tmp-jar-path-whitespace*)))) 107 (cl-fad-copy-file *tmp-jar-path* *tmp-jar-path-whitespace*))) 108 (values *tmp-jar-path* *tmp-jar-path-whitespace*)) 106 109 107 110 (defun clean-jar-tests () … … 200 203 201 204 (defparameter *url-jar-pathname-base* 202 "jar:http://abcl-dynamic-install.googlecode.com/files/baz-201 10610a.jar!/")205 "jar:http://abcl-dynamic-install.googlecode.com/files/baz-20120514a.jar!/") 203 206 204 207 (defmacro load-url-relative (path)
Note: See TracChangeset
for help on using the changeset viewer.