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