From 13425d4a7e682dca593b50a80bf707ed952b86af Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <fare@tunes.org> Date: Tue, 17 Nov 2009 18:44:30 -0500 Subject: [PATCH] Under clisp, use posix:copy-file instead of rename-file (thanks to sds) --- asdf-ops.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/asdf-ops.lisp b/asdf-ops.lisp index ba0bb34..fc7490f 100644 --- a/asdf-ops.lisp +++ b/asdf-ops.lisp @@ -229,7 +229,9 @@ to the base of the system." ;; :debug-object-types debug-object-types :base-pathname base-pathname)))))) (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 #+clozure :if-exists #+clozure :rename-and-delete)))) -- GitLab