1.0.16.43: test fixes

	From Vitaly Mayatskikh (sbcl-devel 2008-05-21)

diff --git a/tests/filesys.test.sh b/tests/filesys.test.sh
index f20c4e4..9b720a9 100644 (file)
--- a/tests/filesys.test.sh
+++ b/tests/filesys.test.sh
@@ -201,12 +201,12 @@ check_status_maybe_lose "DIRECTORY/TRUENAME part 3" $?
 # Test whether ENSURE-DIRECTORIES-EXIST can create a directory whose
 # name contains a wildcard character (it used to get itself confused
 # internally).
-run_sbcl --eval '(ensure-directories-exist "foo\\*bar/baz.txt")'
+run_sbcl --eval '(ensure-directories-exist "foo\\*bar/baz.txt")' --eval '(sb-ext:quit)'
 test -d foo*bar
 check_status_maybe_lose "ENSURE-DIRECTORIES-EXIST part 1" $? \
     0 "(directory exists)"
 
-run_sbcl --eval '(ensure-directories-exist "foo\\?bar/baz.txt")'
+run_sbcl --eval '(ensure-directories-exist "foo\\?bar/baz.txt")' --eval '(sb-ext:quit)'
 test -d foo?bar
 check_status_maybe_lose "ENSURE-DIRECTORIES-EXIST part 2" $? \
     0 "(directory exists)"

diff --git a/tests/stress-gc.sh b/tests/stress-gc.sh
index 32321b9..36ef336 100644 (file)
--- a/tests/stress-gc.sh
+++ b/tests/stress-gc.sh
@@ -13,7 +13,7 @@
 
 . ./subr.sh
 
-sbcl <<EOF
+run_sbcl <<EOF
     (compile-file "./stress-gc.lisp")
     (load *)
     (time (stress-gc ${1:-100000} ${2:-3000}))

diff --git a/version.lisp-expr b/version.lisp-expr
index 88d46d3..61dc084 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.16.42"
+"1.0.16.43"