# absolutely no warranty. See the COPYING and CREDITS files for
# more information.
-sbcl <<EOF
+. ./subr.sh
+
+run_sbcl <<EOF
(compile-file "./stress-gc.lisp")
(load *)
(time (stress-gc ${1:-100000} ${2:-3000}))
(format t "~&test completed successfully~%")
+ (exit :code $EXIT_LISP_WIN)
EOF
+check_status_maybe_lose "stress-gc" $?
+exit $EXIT_TEST_WIN
\ No newline at end of file