[Openmcl-cvs-notifications] r10642 - /trunk/source/lib/pathnames.lisp

[gb at clozure.com]

Author: gb
Date: Mon Sep  8 02:06:48 2008
New Revision: 10642

Log:
rename on windows: destination file can't exist.

Modified:
    trunk/source/lib/pathnames.lisp

Modified: trunk/source/lib/pathnames.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/lib/pathnames.lisp (original)
+++ trunk/source/lib/pathnames.lisp Mon Sep  8 02:06:48 2008
@@ -81,6 +81,8 @@
 (defun unix-rename (old-name new-name)
   (with-cstrs ((old old-name)
                (new new-name))
+    #+windows-target
+    (#__unlink new)
     (let* ((res (#_rename old new)))
       (declare (fixnum res))
       (if (zerop res)