Fix test-case for bug-511072 in packages.impure.lisp

[sbcl.git] / tests / subr.sh

diff --git a/tests/subr.sh b/tests/subr.sh
index b96dd29..84ee1a4 100644 (file)
--- a/tests/subr.sh
+++ b/tests/subr.sh
@@ -66,6 +66,11 @@ run_sbcl () (
     fi
 )
 
+run_sbcl_with_args () (
+    set -u
+    "$SBCL_RUNTIME" --core "$SBCL_CORE" "$@"
+)
+
 run_sbcl_with_core () (
     set -u
     core="$1"