From 53b7feecc1e0ff91f20b21b222fcce418fa67b85 Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <tunes@google.com>
Date: Mon, 21 Jan 2013 01:37:47 -0500
Subject: [PATCH] Fix tests for LispWorks.

---
 test/make-hello-world.lisp         | 1 +
 test/script-support.lisp           | 5 ++++-
 test/test-deferred-warnings.script | 2 +-
 3 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/test/make-hello-world.lisp b/test/make-hello-world.lisp
index f7644c961..c8be60581 100644
--- 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 299a25d59..639e0cc54 100644
--- 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 3ee7f107d..f8e3ab8d0 100644
--- 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))
-- 
GitLab