Skip to content
Snippets Groups Projects
Commit dd63c7a6 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Work around ABCL's bad backquote parser in test_clean_load.

parent 3721b8f9
No related branches found
No related tags found
No related merge requests found
...@@ -414,11 +414,11 @@ test_clean_load () { ...@@ -414,11 +414,11 @@ test_clean_load () {
nop=build/results/${lisp}-nop.text nop=build/results/${lisp}-nop.text
load=build/results/${lisp}-load.text load=build/results/${lisp}-load.text
$bcmd $eval \ $bcmd $eval \
'(or`#.(load(string`|test/script-support.lisp|)`:verbose():print())#.(asdf-test::exit-lisp`0))' \ "(or'#.(load(string'|test/script-support.lisp|):verbose():print())#.(asdf-test::exit-lisp'0))" \
> $nop 2>&1 > $nop 2>&1
$bcmd $eval \ $bcmd $eval \
'(or`#.(load(string`|test/script-support.lisp|)`:verbose`():print`())#.(asdf-test::verbose())#.(load(string`|build/asdf.lisp|):verbose())#.(asdf/image:quit`0))' \ "(or'#.(load(string'|test/script-support.lisp|):verbose():print())#.(asdf-test::verbose())#.(load(string'|build/asdf.lisp|):verbose())#.(asdf/image:quit'0))" \
> $load 2>&1 > $load 2>&1
if diff $nop $load ; then if diff $nop $load ; then
echo "GOOD: Loading ASDF on $lisp produces no message" >&2 ; return 0 echo "GOOD: Loading ASDF on $lisp produces no message" >&2 ; return 0
else else
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment