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

Testing: more GCL tweaks.

parent b9070f45
No related branches found
No related tags found
No related merge requests found
...@@ -201,12 +201,8 @@ case "$lisp" in ...@@ -201,12 +201,8 @@ case "$lisp" in
gcl) gcl)
GCL_ANSI=t GCL_ANSI=t
command="${GCL:-gcl}" command="${GCL:-gcl}"
flags="-batch" flags=""
eval="-eval" ;; nodebug="-batch"
gclcvs)
GCL_ANSI=t
command="${GCLCVS:-gclcvs}"
flags="-batch"
eval="-eval" ;; eval="-eval" ;;
lispworks) lispworks)
command="${LISPWORKS:-lispworks}" command="${LISPWORKS:-lispworks}"
......
...@@ -35,7 +35,7 @@ Some constraints: ...@@ -35,7 +35,7 @@ Some constraints:
(declaim (optimize (speed 2) (safety #-gcl 3 #+gcl 0) #-(or allegro gcl genera) (debug 3) (declaim (optimize (speed 2) (safety #-gcl 3 #+gcl 0) #-(or allegro gcl genera) (debug 3)
#+(or cmu scl) (c::brevity 2))) #+(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))) #+(or cmu scl) (c::brevity 2)))
(defvar *trace-symbols* (defvar *trace-symbols*
......
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