0.pre7.95:

[sbcl.git] / src / cold / shared.lisp

diff --git a/src/cold/shared.lisp b/src/cold/shared.lisp
index 6229901..0545ac7 100644 (file)
--- a/src/cold/shared.lisp
+++ b/src/cold/shared.lisp
@@ -95,6 +95,12 @@
 ;;; able to get rid of this function and use plain RENAME-FILE in the
 ;;; COMPILE-STEM function above. -- WHN 19990321
 (defun rename-file-a-la-unix (x y)
+
+  ;; CLISP signals an error when the target file exists, which
+  ;; seems unjustified by the ANSI definition of RENAME-FILE.
+  ;; Work around it.
+  #+clisp (ignore-errors (delete-file y))
+
   (rename-file x
               ;; (Note that the TRUENAME expression here is lifted
               ;; from an example in the ANSI spec for TRUENAME.)