More test frobbing.

diff --git a/test/script-support.lisp b/test/script-support.lisp
index 639e0cc..411f737 100644 (file)
--- 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 cedc3ba..c6835d7 100644 (file)
--- 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