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

Under clisp, use posix:copy-file instead of rename-file (thanks to sds)

parent 468aa14f
No related branches found
No related tags found
No related merge requests found
...@@ -229,7 +229,9 @@ to the base of the system." ...@@ -229,7 +229,9 @@ to the base of the system."
;; :debug-object-types debug-object-types ;; :debug-object-types debug-object-types
:base-pathname base-pathname)))))) :base-pathname base-pathname))))))
(let ((destination-file (first (asdf:output-files op c)))) (let ((destination-file (first (asdf:output-files op c))))
#+clisp (delete-file destination-file) #+clisp
(posix:copy-file tmp-file-name destination-file :method :rename)
#-clisp
(rename-file tmp-file-name destination-file (rename-file tmp-file-name destination-file
#+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.
Finish editing this message first!
Please register or to comment