Initial revision
[sbcl.git] / tests / stress-gc.sh
1 #!/bin/sh
2
3 sbcl <<EOF
4     (compile-file "WHN/stress-gc.lisp")
5     (load *)
6     (time (stress-gc ${1:-100000} ${2:-3000}))
7     (format t "~&test completed successfully~%")
8 EOF