From cc2636e4da041aca037916a1aa31588ac80cd2bf Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <tunes@google.com>
Date: Fri, 28 Feb 2014 21:57:38 -0500
Subject: [PATCH] Fix rename-file-overwriting-target on ECL.

---
 uiop/filesystem.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/uiop/filesystem.lisp b/uiop/filesystem.lisp
index 24152993..f42c3f6d 100644
--- a/uiop/filesystem.lisp
+++ b/uiop/filesystem.lisp
@@ -571,7 +571,7 @@ in an atomic way if the implementation allows."
            (symbol-call :posix :copy-file source target :method :rename))
     #-clisp
     (rename-file source target
-                 #+clozure :if-exists #+clozure :rename-and-delete))
+                 #+(or clozure ecl) :if-exists #+clozure :rename-and-delete #+ecl t))
 
   (defun delete-file-if-exists (x)
     "Delete a file X if it already exists"
-- 
GitLab