Skip to content
Browse files

Removed function pathname-sans-directory-pathname since it's a duplic…

…ate of cl:file-namestring
  • Loading branch information...
1 parent d1a728e commit cca8d238b003a903d037ea10bc3f58ade4110260 @segv segv committed Nov 20, 2012
Showing with 1 addition and 9 deletions.
  1. +0 −7 fad.lisp
  2. +0 −1 packages.lisp
  3. +1 −1 path.lisp
7 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
1 packages.lisp
@@ -47,7 +47,6 @@
- :pathname-sans-directory-pathname
2 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)

0 comments on commit cca8d23

Please sign in to comment.
Something went wrong with that request. Please try again.