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

In run-tests, remove which statements that are confusingly redundant with the type above them.

parent 02c1bee5
No related branches found
No related tags found
No related merge requests found
...@@ -111,8 +111,7 @@ case "$lisp" in ...@@ -111,8 +111,7 @@ case "$lisp" in
clisp) clisp)
if type clisp ; then if type clisp ; then
fasl_ext="fas" fasl_ext="fas"
command=`which clisp` command="clisp -norc -ansi -I "
command="$command -norc -ansi -I "
nodebug="-on-error exit" nodebug="-on-error exit"
eval="-x" eval="-x"
fi ;; fi ;;
...@@ -155,15 +154,13 @@ case "$lisp" in ...@@ -155,15 +154,13 @@ case "$lisp" in
ecl) ecl)
if type ecl ; then if type ecl ; then
fasl_ext="fas" fasl_ext="fas"
command=`which ecl` command="ecl -norc"
command="$command -norc"
eval="-eval" eval="-eval"
fi ;; fi ;;
lispworks) lispworks)
if type lispworks ; then if type lispworks ; then
fasl_ext="ofasl" fasl_ext="ofasl"
command=`which lispworks` command="lispworks -siteinit - -init -"
command="$command -siteinit - -init -"
eval="-eval" eval="-eval"
fi ;; fi ;;
*) *)
......
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