(test-serie "[Les Pathnames]")

(setq apathname (make-pathname () () '("usr" "spool" "uucp") "test"  "ll"))
                 #u"/usr/spool/uucp/test.ll"

(pathnamep apathname)			T

(pathname-host apathname)               ()
(pathname-device apathname)             ()
(pathname-directory apathname)          ( "usr" "spool" "uucp")
(pathname-name apathname)               "test"
(pathname-type apathname)               "ll"
(pathname-version apathname)            ()

(setq *default-pathname-defaults* #u"/usr/spool/uucp/") #u"/usr/spool/uucp/"
(make-pathname () () () "test" "ll")    #u"/usr/spool/uucp/test.ll"

(merge-pathnames #u"test.ll" #u"/usr/spool/uucp/") #u"/usr/spool/uucp/test.ll"
(pathname (enough-namestring apathname))   #u"test.ll"