projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.48.2: ASDF 2.015
[sbcl.git]
/
tests
/
expect.sh
diff --git
a/tests/expect.sh
b/tests/expect.sh
index
60cbdc8
..
84617f0
100644
(file)
--- a/
tests/expect.sh
+++ b/
tests/expect.sh
@@
-99,24
+99,24
@@
EOF
check_status_maybe_lose abort-compile $?
}
check_status_maybe_lose abort-compile $?
}
-fail_on_compiler_note ()
+fail_on_condition_during_compile ()
{
run_sbcl <<EOF
{
run_sbcl <<EOF
- (handler-bind ((sb-ext:compiler-note #'error))
- (compile-file "$1")
+ (handler-bind (($1 #'error))
+ (compile-file "$2")
(sb-ext:quit :unix-status $EXIT_LISP_WIN))
EOF
(sb-ext:quit :unix-status $EXIT_LISP_WIN))
EOF
- check_status_maybe_lose fail-on-compiler-note $?
+ check_status_maybe_lose "fail-on-condition_$1" $?
}
}
-expect_compiler_note ()
+expect_condition_during_compile ()
{
run_sbcl <<EOF
{
run_sbcl <<EOF
- (handler-bind ((sb-ext:compiler-note (lambda (c)
- (declare (ignore c))
- (sb-ext:quit :unix-status
- $EXIT_LISP_WIN))))
- (compile-file "$1"))
+ (handler-bind (($1 (lambda (c)
+ (declare (ignore c))
+ (sb-ext:quit :unix-status $EXIT_LISP_WIN))))
+ (compile-file "$2"))
EOF
EOF
- check_status_maybe_lose expect-compiler-note $?
+ check_status_maybe_lose "expect-condition_$1" $?
}
}
+