From 6dffb55cf67089cdb8662e634a641c5670b0389a Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <fare@tunes.org>
Date: Sat, 27 Feb 2010 20:42:09 -0500
Subject: [PATCH] In run-tests, remove which statements that are confusingly
 redundant with the type above them.

---
 test/run-tests.sh | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/test/run-tests.sh b/test/run-tests.sh
index 837f55a6..b9f4cf0a 100755
--- a/test/run-tests.sh
+++ b/test/run-tests.sh
@@ -111,8 +111,7 @@ case "$lisp" in
   clisp)
     if type clisp ; then
 	fasl_ext="fas"
-	command=`which clisp`
-	command="$command -norc -ansi -I "
+	command="clisp -norc -ansi -I "
         nodebug="-on-error exit"
         eval="-x"
     fi ;;
@@ -155,15 +154,13 @@ case "$lisp" in
   ecl)
     if type ecl ; then
 	fasl_ext="fas"
-	command=`which ecl`
-	command="$command -norc"
+	command="ecl -norc"
         eval="-eval"
     fi ;;
   lispworks)
     if type lispworks ; then
 	fasl_ext="ofasl"
-	command=`which lispworks`
-	command="$command -siteinit - -init -"
+	command="lispworks -siteinit - -init -"
         eval="-eval"
     fi ;;
   *)
-- 
GitLab