fix LET* environment semantics in sexp-based evaluator

[sbcl.git] / tests / stream.test.sh

diff --git a/tests/stream.test.sh b/tests/stream.test.sh
index 3c5e38e..a8462cb 100644 (file)
--- 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,11 +36,11 @@ 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 $?
-test_output=$(cat $tmpfilename.out)
+test_output=`cat $tmpfilename.out`
 rm -f $tmpfilename.out
 if [ 'Bivalent *STANDARD-OUTPUT*' != "$test_output" ]; then
     echo "bad test output: '$test_output'"
@@ -52,11 +52,11 @@ 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 $?
-test_output=$(cat $tmpfilename.out)
+test_output=`cat $tmpfilename.out`
 rm -f $tmpfilename.out
 if [ 'Bivalent *ERROR-OUTPUT*' != "$test_output" ]; then
     echo "bad test output: '$test_output'"