X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fexpect.sh;h=383b5f87af51a18fe9805d7b33ec35b48bb940b9;hb=HEAD;hp=bbcd3c5cf4cd11ddfd2ffb3766649a6fb526cb65;hpb=bad78f8364214129d96f1ae0e028e2810a828791;p=sbcl.git

diff --git a/tests/expect.sh b/tests/expect.sh
index bbcd3c5..383b5f8 100644
--- a/tests/expect.sh
+++ b/tests/expect.sh
@@ -26,7 +26,7 @@ expect_load_error ()
             (assert (null value0))
             (format t "VALUE1=~S (~A)~%" value1 value1)
             (assert (typep value1 'error)))
-        (sb-ext:quit :unix-status $EXIT_LISP_WIN)
+        (sb-ext:exit :code $EXIT_LISP_WIN)
 EOF
     check_status_maybe_lose compile-and-load $?
 
@@ -37,7 +37,7 @@ EOF
             (assert (null value0))
             (format t "VALUE1=~S (~A)~%" value1 value1)
             (assert (typep value1 'error)))
-        (sb-ext:quit :unix-status $EXIT_LISP_WIN)
+        (sb-ext:exit :code $EXIT_LISP_WIN)
 EOF
     check_status_maybe_lose load-into-interpreter $?
 }
@@ -51,7 +51,7 @@ expect_clean_cload ()
             (ignore-errors (load (compile-file-pathname "$f")))
           (assert value0)
           (assert (null value1)))
-        (sb-ext:quit :unix-status $EXIT_LISP_WIN)
+        (sb-ext:exit :code $EXIT_LISP_WIN)
 EOF
     check_status_maybe_lose load-compiled $?
 }
@@ -67,7 +67,7 @@ expect_clean_compile ()
           (declare (ignore pathname))
           (assert (not warnings-p))
           (assert (not failure-p))
-          (sb-ext:quit :unix-status $EXIT_LISP_WIN))
+          (sb-ext:exit :code $EXIT_LISP_WIN))
 EOF
     check_status_maybe_lose clean-compile $?
 }
@@ -81,7 +81,7 @@ expect_warned_compile ()
           (declare (ignore pathname))
           (assert warnings-p)
           (assert (not failure-p))
-          (sb-ext:quit :unix-status $EXIT_LISP_WIN))
+          (sb-ext:exit :code $EXIT_LISP_WIN))
 EOF
     check_status_maybe_lose warn-compile $?
 }
@@ -94,7 +94,7 @@ expect_failed_compile ()
             (compile-file "$f")
           (declare (ignore pathname warnings-p))
           (assert failure-p)
-          (sb-ext:quit :unix-status $EXIT_LISP_WIN))
+          (sb-ext:exit :code $EXIT_LISP_WIN))
 EOF
     check_status_maybe_lose fail-compile $?
 }
@@ -111,7 +111,7 @@ expect_aborted_compile ()
             (assert failure-p)
             (assert warnings-p)
             (assert (not (probe-file fasl))))
-          (sb-ext:quit :unix-status $EXIT_LISP_WIN))
+          (sb-ext:exit :code $EXIT_LISP_WIN))
 EOF
     check_status_maybe_lose abort-compile $?
 }
@@ -123,7 +123,7 @@ fail_on_condition_during_compile ()
     run_sbcl <<EOF
         (handler-bind (($c #'error))
           (compile-file "$f")
-          (sb-ext:quit :unix-status $EXIT_LISP_WIN))
+          (sb-ext:exit :code $EXIT_LISP_WIN))
 EOF
     check_status_maybe_lose "fail-on-condition_$1" $?
 }
@@ -135,7 +135,7 @@ expect_condition_during_compile ()
     run_sbcl <<EOF
         (handler-bind (($c (lambda (c)
                              (declare (ignore c))
-                             (sb-ext:quit :unix-status $EXIT_LISP_WIN))))
+                             (sb-ext:exit :code $EXIT_LISP_WIN))))
           (compile-file "$f"))
 EOF
     check_status_maybe_lose "expect-condition_$1" $?