From e416852181ec55ec987bca530ca03fe0c7d4e3b0 Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <tunes@google.com> Date: Thu, 2 Jul 2015 12:16:51 -0400 Subject: [PATCH] Change function order to avoid warning. --- uiop/filesystem.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/uiop/filesystem.lisp b/uiop/filesystem.lisp index d7b36549..422767f1 100644 --- a/uiop/filesystem.lisp +++ b/uiop/filesystem.lisp @@ -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) -- GitLab