[Gcl-devel] pathname-directory and other pathname issues

[Raymond Toy]

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