- (let ((fd (sb-posix:open *test-directory* sb-posix::o-rdonly)))
- (ignore-errors (sb-posix:close fd))
- (< fd 0))
+ (let ((name (merge-pathnames "open-test.txt" *test-directory*)))
+ (unwind-protect
+ (progn
+ (sb-posix:close
+ (sb-posix:creat name (logior sb-posix:s-iwrite sb-posix:s-iread)))
+ (let ((fd (sb-posix:open name sb-posix::o-rdonly)))
+ (ignore-errors (sb-posix:close fd))
+ (< fd 0)))
+ (ignore-errors (sb-posix:unlink name))))