Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Eric Timmons
asdf
Commits
0647472b
Commit
0647472b
authored
Jan 04, 2020
by
Robert Goldman
Browse files
Make DELETE-DIRECTORY-TREE accept pathname-designator.
Use ENSURE-PATHNAME on its argument.
parent
386cb483
Changes
1
Hide whitespace changes
Inline
Side-by-side
uiop/filesystem.lisp
View file @
0647472b
...
...
@@ -648,11 +648,10 @@ the validation function designated (as per ENSURE-FUNCTION) by the VALIDATE keyw
which in practice is thus compulsory, and validates by returning a non-NIL result.
If you're suicidal or extremely confident, just use :VALIDATE T."
(
check-type
if-does-not-exist
(
member
:error
:ignore
))
(
setf
directory-pathname
(
ensure-pathname
directory-pathname
:want-pathname
t
:want-non-wild
t
:want-physical
t
:want-directory
t
))
(
cond
((
not
(
and
(
pathnamep
directory-pathname
)
(
directory-pathname-p
directory-pathname
)
(
physical-pathname-p
directory-pathname
)
(
not
(
wild-pathname-p
directory-pathname
))))
(
parameter-error
"~S was asked to delete ~S but it is not a physical non-wildcard directory pathname"
'delete-directory-tree
directory-pathname
))
((
not
validatep
)
(
parameter-error
"~S was asked to delete ~S but was not provided a validation predicate"
'delete-directory-tree
directory-pathname
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment