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

Punt on atomic rename-file for CLISP: workaround by deleting old file if present.

parent d64cfb86
No related branches found
No related tags found
No related merge requests found
......@@ -230,7 +230,9 @@ to the base of the system."
;; :debug-object-types debug-object-types
:base-pathname base-pathname))))))
#+clisp
(posix:copy-file tmp-file-name destination-file :method :rename)
(when (probe-file destination-file) (delete-file destination-file)) ;; Workaround BUG in CLISP 2.48, lose atomicity
#+clisp
(posix:copy-file tmp-file-name destination-file :method :rename :if-exists :overwrite)
#-clisp
(rename-file tmp-file-name destination-file
#+clozure :if-exists #+clozure :rename-and-delete)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment