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