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
e4168521
Commit
e4168521
authored
Jul 02, 2015
by
Francois-Rene Rideau
Browse files
Change function order to avoid warning.
parent
f1ddaec2
Changes
1
Hide whitespace changes
Inline
Side-by-side
uiop/filesystem.lisp
View file @
e4168521
...
...
@@ -578,6 +578,10 @@ NILs."
(
when
pathname
(
ensure-directories-exist
(
physicalize-pathname
pathname
)))))
(
defun
delete-file-if-exists
(
x
)
"Delete a file X if it already exists"
(
when
x
(
handler-case
(
delete-file
x
)
(
file-error
()
nil
))))
(
defun
rename-file-overwriting-target
(
source
target
)
"Rename a file, overwriting any previous file with the TARGET name,
in an atomic way if the implementation allows."
...
...
@@ -589,10 +593,6 @@ in an atomic way if the implementation allows."
(
rename-file
source
target
#+
(
or
clasp
clozure
ecl
)
:if-exists
#+
clozure
:rename-and-delete
#+
(
or
clasp
ecl
)
t
))
(
defun
delete-file-if-exists
(
x
)
"Delete a file X if it already exists"
(
when
x
(
handler-case
(
delete-file
x
)
(
file-error
()
nil
))))
(
defun
delete-empty-directory
(
directory-pathname
)
"Delete an empty directory"
#+
(
or
abcl
digitool
gcl
)
(
delete-file
directory-pathname
)
...
...
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