From 50080e4ccf15de37c632fee8ed58f17903769205 Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <tunes@google.com>
Date: Mon, 21 Jan 2013 01:59:05 -0500
Subject: [PATCH] More test frobbing.

---
 test/script-support.lisp |  3 +--
 test/test-program.script | 16 ++++++++--------
 2 files changed, 9 insertions(+), 10 deletions(-)

diff --git a/test/script-support.lisp b/test/script-support.lisp
index 639e0cc5..411f7375 100644
--- a/test/script-support.lisp
+++ b/test/script-support.lisp
@@ -65,8 +65,7 @@ Some constraints:
                  (< system::*gcl-minor-version* 7)))
     (shadowing-import 'system:*load-pathname* :asdf-test))
   #+lispworks
-  (setf system:*stack-overflow-behaviour* :warn)
-  (setf system:*sg-default-size* 200000))
+  (setf system:*stack-overflow-behaviour* :warn))
 
 #+(or gcl genera)
 (unless (fboundp 'ensure-directories-exist)
diff --git a/test/test-program.script b/test/test-program.script
index cedc3ba9..c6835d72 100644
--- a/test/test-program.script
+++ b/test/test-program.script
@@ -2,17 +2,17 @@
 
 (DBG :foo (current-lisp-file-pathname))
 
-(defparameter exe (output-file (make-operation 'program-op) (find-system :hello-world-example)))
-(assert (absolute-pathname-p exe))
-
-(unless (and #-(or clisp clozure cmu ecl lispworks sbcl) nil
-             #+cmu nil ;; uncomment if you have 32-bit gcc support - or can autodetect
-             #+clisp (version-satisfies
-                      (first (split-string (lisp-implementation-version) :separator " "))
-                      "2.48"))
+(unless (or #+(or clisp clozure (and ecl (not ecl-bytecmp)) lispworks sbcl) t
+            #+cmu nil ;; uncomment if you have 32-bit gcc support - or can autodetect
+            #+clisp (version-satisfies
+                     (first (split-string (lisp-implementation-version) :separator " "))
+                     "2.48"))
   (DBG "Creating standalone programs is not supported on your CL implementation")
   (leave-test "Skipping test" 0))
 
+(defparameter exe (output-file (make-operation 'program-op) (find-system :hello-world-example)))
+(assert (absolute-pathname-p exe))
+
 ;; Try to load lisp-invocation from xcvb
 (setf *central-registry*
       (list *asdf-directory* ;; be sure that *OUR* asdf is first of any possible ASDF
-- 
GitLab