Changeset 12616 for trunk/abcl/test/lisp/abcl/jar-pathname.lisp

Timestamp:

04/15/10 14:54:08 (13 years ago)

Author:

Mark Evenson

Message:

All URL/JAR tests now passing.

File:

• trunk/abcl/test/lisp/abcl/jar-pathname.lisp (modified) (2 diffs)

trunk/abcl/test/lisp/abcl/jar-pathname.lisp

@@ -279 +279 @@
            (d (first (pathname-device p))))
       (values 
-       (pathname-url-p d)
+       (system:pathname-url-p d)
        (namestring d)
        (pathname-directory p) (pathname-name p) (pathname-type p)))
@@ -292 +292 @@
            (d1 (second d)))
       (values
-       (pathname-url-p d0)
+       (system:pathname-url-p d0)
        (namestring d0)
        (pathname-name d1) (pathname-type d1)