(defun delete-file-without-moaning (file)
"Delete the FILE, ignoring errors."
- (when (probe-file file)
- (unix-try unlink file)))
+ (with-errno-handlers ()
+ (sys-unlink file)
+ (ENOENT nil)))
(defun rename-file-without-moaning (old new)
"Rename OLD to NEW, ignoring errors, and without doing any stupid name
mangling."
- (when (probe-file old)
- (unix-try rename old new)))
+ (with-errno-handlers ()
+ (sys-rename old new)
+ (ENOENT nil)))
(defun safely-unwind (trail)
"Roll back the TRAIL of operations."
(copy-file file old)
(push `(:revert ,old ,file) revert))
(push `(:rmtmp ,file) revert))
- (unix-try rename new file)))
+ (sys-rename new file)))
(:delete (destructuring-bind (tag file old) job
(declare (ignore tag))
(push `(:revert ,old ,file) revert)
- (unix-try rename file old)
+ (sys-rename file old)
(push `(:rmtmp old) cleanup))))))
(setf revert nil))
(safely-unwind trail)