projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Micro-optimize DOUBLE-FLOAT-LOW-BITS on x68-64.
[sbcl.git]
/
contrib
/
sb-posix
/
posix-tests.lisp
diff --git
a/contrib/sb-posix/posix-tests.lisp
b/contrib/sb-posix/posix-tests.lisp
index
13bb23d
..
c73f2d1
100644
(file)
--- a/
contrib/sb-posix/posix-tests.lisp
+++ b/
contrib/sb-posix/posix-tests.lisp
@@
-461,13
+461,13
@@
(progn
(multiple-value-bind (nope error)
(ignore-errors (sb-posix:fcntl f sb-posix:f-setlk flock))
(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))
(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
(progn
(setf kid-status
(sb-posix:wexitstatus
@@
-495,12
+495,12
@@
(pid (sb-posix:fork)))
(if (zerop pid)
(let ((r (sb-posix:fcntl f sb-posix:f-getlk 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))
(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
(progn
(setf kid-status
(sb-posix:wexitstatus