Changeset 14334


Ignore:
Timestamp:
Oct 6, 2010, 7:19:46 PM (9 years ago)
Author:
rme
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:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/linux-files.lisp

    r14326 r14334  
    869869(defun %delete-file (name)
    870870  (with-filename-cstrs ((n name))
    871     (int-errno-call (#+windows-target #__unlink #-windows-target #_unlink n))))
     871    (int-errno-call (#+windows-target #__wunlink #-windows-target #_unlink n))))
    872872
    873873(defun os-command (string)
  • trunk/source/lib/pathnames.lisp

    r14322 r14334  
    8383                        (new new-name))
    8484    #+windows-target
    85     (#__unlink new)
    86     (let* ((res (#_rename old new)))
     85    (#__wunlink new)
     86    (let* ((res #-windows-target (#_rename old new)
     87                #+windows-target (#__wrename old new)))
    8788      (declare (fixnum res))
    8889      (if (zerop res)
Note: See TracChangeset for help on using the changeset viewer.