Changeset 14334

Timestamp:

Oct 6, 2010, 12:19:46 PM (14 years ago)

Author:

R. Matthew Emerson

Message:

Repair Windows breakage introduced in r14322. We need to use _wunlink
and _wrename since we're now using with-filename-cstrs.

Location:

trunk/source

Files:

• level-1/linux-files.lisp (modified) (1 diff)
• lib/pathnames.lisp (modified) (1 diff)

trunk/source/level-1/linux-files.lisp

@@ -869 +869 @@
 (defun %delete-file (name)
   (with-filename-cstrs ((n name))
-    (int-errno-call (#+windows-target #__unlink #-windows-target #_unlink n))))
+    (int-errno-call (#+windows-target #__wunlink #-windows-target #_unlink n))))
 
 (defun os-command (string)

trunk/source/lib/pathnames.lisp

@@ -83 +83 @@
                         (new new-name))
     #+windows-target
-    (#__unlink new)
-    (let* ((res (#_rename old new)))
+    (#__wunlink new)
+    (let* ((res #-windows-target (#_rename old new)
+                #+windows-target (#__wrename old new)))
       (declare (fixnum res))
       (if (zerop res)