X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-posix%2Fposix-tests.lisp;h=c73f2d1af8965c2eacbd14b5e30cb53b4d6c86c5;hb=a37b7e2a4c93398af954c3f03c5412ead1c1c828;hp=13bb23d96fde4ba5c0b455f221d486009de2f953;hpb=6548750bc1ca4d832afed1744cdc7133b232c6f2;p=sbcl.git

diff --git a/contrib/sb-posix/posix-tests.lisp b/contrib/sb-posix/posix-tests.lisp
index 13bb23d..c73f2d1 100644
--- 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))
-                      (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
@@ -495,12 +495,12 @@
                   (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