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