Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Hugo Ishimaru
asdf
Commits
4c6c0e3b
Commit
4c6c0e3b
authored
Jun 29, 2015
by
Robert Goldman
Browse files
Fix error messages in DELETE-DIRECTORY-TREE.
parent
5ebe277f
Changes
1
Hide whitespace changes
Inline
Side-by-side
uiop/filesystem.lisp
View file @
4c6c0e3b
...
...
@@ -635,18 +635,18 @@ If you're suicidal or extremely confident, just use :VALIDATE T."
((
not
(
and
(
pathnamep
directory-pathname
)
(
directory-pathname-p
directory-pathname
)
(
physical-pathname-p
directory-pathname
)
(
not
(
wild-pathname-p
directory-pathname
))))
(
error
"~S was asked to delete ~S but it is not a physical non-wildcard directory pathname"
'delete-
filesystem
-tree
directory-pathname
))
'delete-
directory
-tree
directory-pathname
))
((
not
validatep
)
(
error
"~S was asked to delete ~S but was not provided a validation predicate"
'delete-
filesystem
-tree
directory-pathname
))
'delete-
directory
-tree
directory-pathname
))
((
not
(
call-function
validate
directory-pathname
))
(
error
"~S was asked to delete ~S but it is not valid ~@[according to ~S~]"
'delete-
filesystem
-tree
directory-pathname
validate
))
'delete-
directory
-tree
directory-pathname
validate
))
((
not
(
directory-exists-p
directory-pathname
))
(
ecase
if-does-not-exist
(
:error
(
error
"~S was asked to delete ~S but the directory does not exist"
'delete-
filesystem
-tree
directory-pathname
))
'delete-
directory
-tree
directory-pathname
))
(
:ignore
nil
)))
#-
(
or
allegro
cmu
clozure
genera
sbcl
scl
)
((
os-unix-p
)
;; On Unix, don't recursively walk the directory and delete everything in Lisp,
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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