0.6.11.36:

[sbcl.git] / tests / run-program.test.sh

diff --git a/tests/run-program.test.sh b/tests/run-program.test.sh
index 12d9fa4..133198e 100644 (file)
--- a/tests/run-program.test.sh
+++ b/tests/run-program.test.sh
@@ -17,9 +17,7 @@
 # one of the tests below).
 export SOMETHING_IN_THE_ENVIRONMENT='yes there is'
 
-sbcl="$1"
-
-$sbcl <<EOF
+${SBCL:-sbcl} <<EOF
   (let ((string (with-output-to-string (stream)
                   (sb-ext:run-program "/bin/echo"
                                       '("foo" "bar")