Fix tests for LispWorks.

diff --git a/test/make-hello-world.lisp b/test/make-hello-world.lisp
index f7644c9..c8be605 100644 (file)
--- a/test/make-hello-world.lisp
+++ b/test/make-hello-world.lisp
@@ -1,4 +1,5 @@
 ;;; -*- Lisp -*-
+#+lispworks (lispworks:load-all-patches)
 (load "script-support.lisp")
 (load-asdf)
 #+ecl (require :cmp)

diff --git a/test/script-support.lisp b/test/script-support.lisp
index 299a25d..639e0cc 100644 (file)
--- a/test/script-support.lisp
+++ b/test/script-support.lisp
@@ -63,7 +63,10 @@ Some constraints:
   (when (or (< system::*gcl-major-version* 2)
             (and (= system::*gcl-major-version* 2)
                  (< system::*gcl-minor-version* 7)))
-    (shadowing-import 'system:*load-pathname* :asdf-test)))
+    (shadowing-import 'system:*load-pathname* :asdf-test))
+  #+lispworks
+  (setf system:*stack-overflow-behaviour* :warn)
+  (setf system:*sg-default-size* 200000))
 
 #+(or gcl genera)
 (unless (fboundp 'ensure-directories-exist)

diff --git a/test/test-deferred-warnings.script b/test/test-deferred-warnings.script
index 3ee7f10..f8e3ab8 100644 (file)
--- a/test/test-deferred-warnings.script
+++ b/test/test-deferred-warnings.script
@@ -12,7 +12,7 @@
        t)
    (compile-file-error () nil)))
 
-#-ecl
+#+(or clozure sbcl)
 (assert
  (handler-case
      (let ((*compile-file-warnings-behaviour* :error))