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