3 # tests for problems in the interface presented to the user/programmer
5 # This software is part of the SBCL system. See the README file for
8 # While most of SBCL is derived from the CMU CL system, the test
9 # files (like this one) were written from scratch after the fork
12 # This software is in the public domain and is provided with
13 # absolutely no warranty. See the COPYING and CREDITS files for
20 tmpscript=$TEST_FILESTEM.lisp-script
23 case "$SBCL_MACHINE_TYPE" in
25 cat > $tmpscript <<EOF
26 (let ((x (make-array (1- (expt 2 32)) :element-type '(unsigned-byte 8))))
27 (assert (> (sb-kernel:dynamic-usage) (length x)))
28 ;; prevent compiler from getting too smart...
30 (sb-ext:quit :unix-status $EXIT_LISP_WIN))
32 run_sbcl_with_args --dynamic-space-size 5GB $SBCL_ARGS --load $tmpscript
33 check_status_maybe_lose "bug 881445" $?