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

Timestamp:

04/15/10 14:54:55 (14 years ago)

Author:

Mark Evenson

Message:

Move pathname functions to EXT; implement DEFSETF for URL pathnames.

Implemented DEFSETF functions for HOST, AUTHORITY, QUERY, and FRAGMENT
sections of URL pathname.

Moved PATHNAME-JAR-P and PATHNAME-URL-P to EXT.

EXT::%INVALIDATE-NAMESTRING resets the namestring after changing the
internal structure. Having to monkey around with the internal
structure of Pathname is just wrong: we should implement the get/set
accessor pattern in Java even though it would make the code more
verbose.

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 
-       (system:pathname-url-p d)
+       (ext:pathname-url-p d)
        (namestring d)
        (pathname-directory p) (pathname-name p) (pathname-type p)))
@@ -292 +292 @@
            (d1 (second d)))
       (values
-       (system:pathname-url-p d0)
+       (ext:pathname-url-p d0)
        (namestring d0)
        (pathname-name d1) (pathname-type d1)