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