Removed function pathname-sans-directory-pathname since it's a duplicate of cl:file-namestring

Author: segv

fad.lisp

@@ -324,13 +324,6 @@ NIL) returns a pathname equal (as per pathname=) to it."
   (make-pathname :defaults pathname
                  :name nil :type nil))
 
-(defun pathname-sans-directory-pathname (pathname)
-  "Returns a complete pathname containing just the 'file' part of pathname.
-
-This is equivalent to (enough-namestring
-PATHNAME (pathname-directory-pathname PATHNAME))."
-  (make-pathname :defaults pathname :directory '()))
-
 (defun pathname-parent-directory (pathname)
   "Returns a pathname which would, by name at least, contain PATHNAME
 as one of its direct children. Symlinks can make the parent/child

packages.lisp

@@ -47,7 +47,6 @@
            :pathname-as-directory
            :pathname-as-file
            :pathname-directory-pathname
-           :pathname-sans-directory-pathname
            :pathname-equal
            :pathname-parent-directory
            :pathname-absolute-p

path.lisp

@@ -11,7 +11,7 @@
 
 (defalias path:dirname (pathname) cl-fad:pathname-directory-pathname)
 
-(defalias path:basename (pathname) cl-fad:pathname-sans-directory-pathname)
+(defun path:basename (pathname) (pathname (file-namestring pathname)))
 
 (defalias path:-e (pathname) cl-fad:file-exists-p)