Skip to content
Snippets Groups Projects
Commit e4168521 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Change function order to avoid warning.

parent f1ddaec2
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment