From eb69faef9a545dcd9dd2cf997e0d1ca824fc1c95 Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <tunes@google.com>
Date: Fri, 15 Nov 2013 20:44:10 -0500
Subject: [PATCH] Testing: more GCL tweaks.

---
 test/run-tests.sh        | 8 ++------
 test/script-support.lisp | 2 +-
 2 files changed, 3 insertions(+), 7 deletions(-)

diff --git a/test/run-tests.sh b/test/run-tests.sh
index d64c5d6e6..b53caa11e 100755
--- a/test/run-tests.sh
+++ b/test/run-tests.sh
@@ -201,12 +201,8 @@ case "$lisp" in
   gcl)
     GCL_ANSI=t
     command="${GCL:-gcl}"
-    flags="-batch"
-    eval="-eval" ;;
-  gclcvs)
-    GCL_ANSI=t
-    command="${GCLCVS:-gclcvs}"
-    flags="-batch"
+    flags=""
+    nodebug="-batch"
     eval="-eval" ;;
   lispworks)
     command="${LISPWORKS:-lispworks}"
diff --git a/test/script-support.lisp b/test/script-support.lisp
index 3bd6098d9..1a369efbf 100644
--- a/test/script-support.lisp
+++ b/test/script-support.lisp
@@ -35,7 +35,7 @@ Some constraints:
 
 (declaim (optimize (speed 2) (safety #-gcl 3 #+gcl 0) #-(or allegro gcl genera) (debug 3)
                    #+(or cmu scl) (c::brevity 2)))
-(proclaim '(optimize (speed #-gcl 2 #+gcl 0) (safety #-gcl 3 #+gcl 0) #-(or allegro gcl genera) (debug 3)
+(proclaim '(optimize (speed #-gcl 2 #+gcl 1) (safety #-gcl 3 #+gcl 0) #-(or allegro gcl genera) (debug 3)
                      #+(or cmu scl) (c::brevity 2)))
 
 (defvar *trace-symbols*
-- 
GitLab