(pathname-host pathname)
(sane-default-pathname-defaults)
:as-directory (eq :directory kind)))
- (fail "couldn't resolve ~A" filename
- (- (sb!win32:get-last-error))))))
+ (fail (format nil "Failed to find the ~A of ~~A" query-for) filename
+ (sb!win32:get-last-error)))))
(:write-date
(or (sb!win32::native-file-write-date filename)
- (fail "couldn't query write date of ~A" filename
- (- (sb!win32:get-last-error))))))
+ (fail (format nil "Failed to find the ~A of ~~A" query-for) filename
+ (sb!win32:get-last-error)))))
#!-win32
(multiple-value-bind (existsp errno ino mode nlink uid gid rdev size
atime mtime)
(:write-date (+ unix-to-universal-time mtime))))))
;; If we're still here, the file doesn't exist; error.
(fail
- (format nil "failed to find the ~A of ~~A" query-for)
+ (format nil "Failed to find the ~A of ~~A" query-for)
pathspec errno)))
(if existsp
(case query-for
"Delete the specified FILE.
If FILE is a stream, on Windows the stream is closed immediately. On Unix
-plaforms the stream remains open, allowing IO to continue: the OS resources
+platforms the stream remains open, allowing IO to continue: the OS resources
associated with the deleted file remain available till the stream is closed as
per standard Unix unlink() behaviour."
(let* ((pathname (translate-logical-pathname
(multiple-value-bind (res err)
#!-win32 (sb!unix:unix-unlink namestring)
#!+win32 (or (sb!win32::native-delete-file namestring)
- (values nil (- (sb!win32:get-last-error))))
+ (values nil (sb!win32:get-last-error)))
(unless res
(simple-file-perror "couldn't delete ~A" namestring err))))
t)
(multiple-value-bind (res errno)
#!+win32
(or (sb!win32::native-delete-directory namestring)
- (values nil (- (sb!win32:get-last-error))))
+ (values nil (sb!win32:get-last-error)))
#!-win32
(values
(not (minusp (alien-funcall