Commit 79502b1c authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Remove duplicate definitions from previous patch.

parent 1693dc3b
...@@ -2177,21 +2177,6 @@ applied by the plain `*source-to-target-mappings*`." ...@@ -2177,21 +2177,6 @@ applied by the plain `*source-to-target-mappings*`."
(defun expand-search-path (path) (defun expand-search-path (path)
(mapcar #'pathname (expand-search-path-string path))) (mapcar #'pathname (expand-search-path-string path)))
;; from cl-fad:fad.lisp
(defun component-present-p (value)
"Helper function for DIRECTORY-PATHNAME-P which checks whether VALUE
is neither NIL nor the keyword :UNSPECIFIC."
(and value (not (eql value :unspecific))))
(defun directory-pathname-p (pathspec)
"Returns NIL if PATHSPEC \(a pathname designator) does not designate
a directory, PATHSPEC otherwise. It is irrelevant whether file or
directory designated by PATHSPEC does actually exist."
(not (component-present-p (pathname-name pathspec)))
(not (component-present-p (pathname-type pathspec)))
(defun pathname-as-directory (pathspec) (defun pathname-as-directory (pathspec)
"Converts the non-wild pathname designator PATHSPEC to directory "Converts the non-wild pathname designator PATHSPEC to directory
form." form."
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment