projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove duplicate implementations of (setf aref/sbit/bit).
[sbcl.git]
/
tests
/
clocc-ansi.test.sh
diff --git
a/tests/clocc-ansi.test.sh
b/tests/clocc-ansi.test.sh
index
87be861
..
1e4cba9
100644
(file)
--- a/
tests/clocc-ansi.test.sh
+++ b/
tests/clocc-ansi.test.sh
@@
-25,17
+25,18
@@
# absolutely no warranty. See the COPYING and CREDITS files for
# more information.
# absolutely no warranty. See the COPYING and CREDITS files for
# more information.
-# Remember where we came from so we can find local support files later.
-originalpwd=`pwd`
+. ./subr.sh
# Find clocc ansi-test (or just punt, returning success).
# Find clocc ansi-test (or just punt, returning success).
+set +u
if [ "$SBCL_CLOCC_ANSI_TEST" = "" ] ; then
echo //punting clocc ansi-test because SBCL_CLOCC_ANSI_TEST is undefined
if [ "$SBCL_CLOCC_ANSI_TEST" = "" ] ; then
echo //punting clocc ansi-test because SBCL_CLOCC_ANSI_TEST is undefined
- exit 104
+ exit $EXIT_TEST_WIN
else
echo //going on to run clocc ansi-test in $SBCL_CLOCC_ANSI_TEST
cd $SBCL_CLOCC_ANSI_TEST
fi
else
echo //going on to run clocc ansi-test in $SBCL_CLOCC_ANSI_TEST
cd $SBCL_CLOCC_ANSI_TEST
fi
+set -u
# The condition system is for the weak.
tmpprefix="${TMPDIR:-/tmp}/sbcl-clocc-ansi-test-$$"
# The condition system is for the weak.
tmpprefix="${TMPDIR:-/tmp}/sbcl-clocc-ansi-test-$$"
@@
-43,10
+44,10
@@
rawfilename="$tmpprefix-raw.tmp"
bugsfilename="$tmpprefix-bugs.tmp"
# Go SBCL go.
bugsfilename="$tmpprefix-bugs.tmp"
# Go SBCL go.
-$SBCL <<EOF >$rawfilename
+run_sbcl <<EOF >$rawfilename
(in-package :cl-user)
;;; Tell ansi-test about our known bugs.
(in-package :cl-user)
;;; Tell ansi-test about our known bugs.
-(load "$originalpwd/clocc-ansi-test-known-bugs.lisp")
+(load "$SBCL_PWD/clocc-ansi-test-known-bugs.lisp")
;;; Actually run ansi-test.
(load "tests.lisp")
;;; Return a special status code to show that we reached the end
;;; Actually run ansi-test.
(load "tests.lisp")
;;; Return a special status code to show that we reached the end