(typep
(sb-posix:syscall-errno c)
'(member
- #+darwin
+ #+(or darwin openbsd)
#.sb-posix:eisdir
#+win32
#.sb-posix::eacces
#.sb-posix::enotempty
#+sunos
#.sb-posix::einval
- #-(or darwin win32 sunos)
+ #-(or darwin openbsd win32 sunos)
#.sb-posix::ebusy)))) t)
(deftest rmdir.error.4
(progn
(multiple-value-bind (nope error)
(ignore-errors (sb-posix:fcntl f sb-posix:f-setlk flock))
- (sb-ext:quit
- :unix-status
+ (sb-ext:exit
+ :code
(cond ((not (null nope)) 1)
((= (sb-posix:syscall-errno error) sb-posix:eagain)
42)
(t 86))
- :recklessly-p t #| don't delete the file |#)))
+ :abort t #| don't delete the file |#)))
(progn
(setf kid-status
(sb-posix:wexitstatus
42)
-#-(or win32 openbsd netbsd)
+#-(or win32 netbsd)
(deftest fcntl.flock.2
(locally (declare (sb-ext:muffle-conditions sb-ext:compiler-note))
(let ((flock (make-instance 'sb-posix:flock
(pid (sb-posix:fork)))
(if (zerop pid)
(let ((r (sb-posix:fcntl f sb-posix:f-getlk flock)))
- (sb-ext:quit
- :unix-status
+ (sb-ext:exit
+ :code
(cond ((not (zerop r)) 1)
((= (sb-posix:flock-pid flock) ppid) 42)
(t 86))
- :recklessly-p t #| don't delete the file |#))
+ :abort t #| don't delete the file |#))
(progn
(setf kid-status
(sb-posix:wexitstatus