Consider the following:
(pathname-directory #p"/abc/def/g.lsp") -> (:root "abc" "def")
(pathname-directory #p"abc/g.lsp") -> ("abc")
(make-pathname :directory '(:absolute "a")) -> #p"ABSOLUTE/a"
(make-pathname :directory '(:relative "a")) -> #p"RELATIVE/a"
(make-pathname :directory '(:root "a" :wild-inferiors)) ->
#p"/a/WILD-INFERIORS"
These are all wrong. The answers should be
(:absolute "abc" "def")
(:relative "abc")
#p"/a/" (or #p"/a")
#p"a" (or #p"a/")
#p/a/**" (or #p"/a/**/")
Also, in gcl 2.4 #p"abc/g.lsp" had a pathname-directory of (:current
"abc"), which is closer to what it should be.
I didn't try it, but perhaps changing sKroot to make_keyword("ABSOLUTE")
and sKcurrent to make_keyword("RELATIVE") would fix some of the issues.
Perhaps gcl doesn't support :wild-inferiors?
Ray
_______________________________________________
Gcl-devel mailing list
Gcl-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/gcl-devel
