From 6db5731e2db2d90cc3a6996a310dbf248ad9aebb Mon Sep 17 00:00:00 2001
From: Christophe Rhodes <csr21@cantab.net>
Date: Thu, 22 May 2008 08:11:06 +0000
Subject: [PATCH] 1.0.16.43: test fixes 	From Vitaly Mayatskikh (sbcl-devel
 2008-05-21)

---
 tests/filesys.test.sh |    4 ++--
 tests/stress-gc.sh    |    2 +-
 version.lisp-expr     |    2 +-
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/tests/filesys.test.sh b/tests/filesys.test.sh
index f20c4e4..9b720a9 100644
--- 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
--- 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
--- 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"
-- 
1.7.10.4