fix pathname-parent-directory for filenames (#14)

* fix pathname-parent-directory for filenames Before: [5]> (pathname-parent-directory #P"/a/b/c") #P"/a/c" which is meaningless and disagrees with the function's docstring. After: [7]> (pathname-parent-directory #P"/a/b/c") #P"/a/" which agrees with the function's docstring, "The parent directory of a filename is the parent of the filename's dirname." * better fix for pathname-parent-directory We do want the defaults for volume and host. So it's better to just specify nil name and type.
edicl · Jan 10, 2022 · 3f4d32d · 3f4d32d
1 parent 539a9fe
commit 3f4d32d
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/fad.lisp b/fad.lisp
@@ -335,6 +335,8 @@ The root directory, #P\"/\", is its own parent. The parent directory
 of a filename is the parent of the filename's dirname."
   (canonical-pathname
    (make-pathname :defaults pathname
+                  :name nil
+                  :type nil
                   :directory (if (pathname-root-p pathname)
                                  (list :absolute)
                                  (append (or (pathname-directory pathname)