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

Fix ASDF's rename-file-overwriting-target so it may build as part of CLISP.

parent 8f2ff59c
No related branches found
No related tags found
No related merge requests found
...@@ -521,8 +521,9 @@ as per native OS" ...@@ -521,8 +521,9 @@ as per native OS"
(defun rename-file-overwriting-target (source target) (defun rename-file-overwriting-target (source target)
"Rename a file, overwriting any previous file with the TARGET name, "Rename a file, overwriting any previous file with the TARGET name,
in an atomic way if the implementation allows." in an atomic way if the implementation allows."
#+clisp ;; But for a bug in CLISP 2.48, we should use :if-exists :overwrite and be atomic #+clisp ;; in recent enough versions of CLISP, :if-exists :overwrite would make it atomic
(posix:copy-file source target :method :rename) (progn (funcall 'require "syscalls")
(symbol-call :posix :copy-file source target :method :rename))
#-clisp #-clisp
(rename-file source target (rename-file source target
#+clozure :if-exists #+clozure :rename-and-delete)) #+clozure :if-exists #+clozure :rename-and-delete))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment