Skip to content
Browse files

Add and export pathname-without-name+type

darcs-hash:20080901165019-3cc5d-6e982eb3b67fed90d48b0b51efb4afced34a4853.gz
  • Loading branch information...
1 parent 43e450e commit cde6d077180d3342feb1239581bc9c4896a1bba9 @gwkkwg committed
Showing with 7 additions and 0 deletions.
  1. +6 −0 dev/l0-files.lisp
  2. +1 −0 dev/package.lisp
View
6 dev/l0-files.lisp
@@ -253,3 +253,9 @@ if `file' is newer than `file2' or if it cannot be determined.
;; determined, the file is recompiled, just to be safe.
(< (or (file-write-date file2) 0)
(or (file-write-date file1) 1)))
+
+(defun pathname-without-name+type (pathname)
+ "Chop off any name and type information from a pathname."
+ (make-pathname :name nil :type nil :defaults pathname)
+ #+(or)
+ (make-pathname :name :unspecific :type :unspecific :defaults pathname))
View
1 dev/package.lisp
@@ -82,6 +82,7 @@
#:handler-bind*
#:file-newer-than-file-p
+ #:pathname-without-name+type
#:with-stream-from-specifier
#:relative-pathname
#:directory-pathname-p

0 comments on commit cde6d07

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