- (let* ((stat-1 (sb-posix:stat "/"))
- (mode-1 (sb-posix:stat-mode stat-1))
- (stat-2 (sb-posix:stat "C:\\pagefile.sys"
- stat-1))
- (mode-2 (sb-posix:stat-mode stat-2)))
- (values
- (eq stat-1 stat-2)
- (/= mode-1 mode-2)))
+ (let ((f (namestring (merge-pathnames "some.file" *test-directory*))))
+ (close (open f :if-exists :append :if-does-not-exist :create))
+ (let* ((stat-1 (sb-posix:stat "/"))
+ (mode-1 (sb-posix:stat-mode stat-1))
+ (stat-2 (sb-posix:stat f stat-1))
+ (mode-2 (sb-posix:stat-mode stat-2)))
+ (values
+ (eq stat-1 stat-2)
+ (/= mode-1 mode-2))))