X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fstream.test.sh;h=a8462cb672ffbc925f79ebe9abad0bab88c750d8;hb=7a2ee8c1aff0bdd286cf5d43ab40bff7fed86bea;hp=eed2e8515be1bae567594e914a5c41a2b33c4a77;hpb=6b5e285152dc031327e66e5405bc449b92560ec8;p=sbcl.git

diff --git a/tests/stream.test.sh b/tests/stream.test.sh
index eed2e85..a8462cb 100644
--- a/tests/stream.test.sh
+++ b/tests/stream.test.sh
@@ -23,8 +23,8 @@ cat > $tmpfilename <<EOF
                (with-output-to-string (s)
                  (loop for byte = (read-byte *standard-input* nil)
                        while byte do (write-char (code-char byte) s))))
-        (quit :unix-status $EXIT_LISP_WIN)
-        (quit :unix-status $EXIT_LOSE))
+        (exit :code $EXIT_LISP_WIN)
+        (exit :code $EXIT_LOSE))
 EOF
 run_sbcl --disable-debugger --load $tmpfilename <<EOF
 Bivalent *STANDARD-INPUT*
@@ -36,7 +36,7 @@ cat > $tmpfilename <<EOF
     (loop for char across "Bivalent *STANDARD-OUTPUT*"
           do (write-byte (char-code char) *standard-output*))
     (terpri *standard-output*)
-    (quit :unix-status $EXIT_LISP_WIN)
+    (exit :code $EXIT_LISP_WIN)
 EOF
 run_sbcl --disable-debugger --load $tmpfilename > $tmpfilename.out
 check_status_maybe_lose bivalent-standard-output $?
@@ -52,7 +52,7 @@ cat > $tmpfilename <<EOF
     (loop for char across "Bivalent *ERROR-OUTPUT*"
           do (write-byte (char-code char) *error-output*))
     (terpri *error-output*)
-    (quit :unix-status $EXIT_LISP_WIN)
+    (exit :code $EXIT_LISP_WIN)
 EOF
 run_sbcl --disable-debugger --load $tmpfilename 2> $tmpfilename.out
 check_status_maybe_lose bivalent-error-output $?