diff --git a/test/script-support.lisp b/test/script-support.lisp index 639e0cc544b877bb7581019376c8ab5ba3b6ba5b..411f73756a5e13161e5f25aeecb05b7582b01711 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 cedc3ba9544007a1a8ac22b2d2169abbe77e4ae6..c6835d724b6f32e0e594d41a164839ac6358dce8 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