Fix tests for LispWorks.
authorFrancois-Rene Rideau <tunes@google.com>
Mon, 21 Jan 2013 06:37:47 +0000 (01:37 -0500)
committerFrancois-Rene Rideau <tunes@google.com>
Mon, 21 Jan 2013 06:37:47 +0000 (01:37 -0500)
test/make-hello-world.lisp
test/script-support.lisp
test/test-deferred-warnings.script

index f7644c9..c8be605 100644 (file)
@@ -1,4 +1,5 @@
 ;;; -*- Lisp -*-
+#+lispworks (lispworks:load-all-patches)
 (load "script-support.lisp")
 (load-asdf)
 #+ecl (require :cmp)
index 299a25d..639e0cc 100644 (file)
@@ -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)
index 3ee7f10..f8e3ab8 100644 (file)
@@ -12,7 +12,7 @@
        t)
    (compile-file-error () nil)))
 
-#-ecl
+#+(or clozure sbcl)
 (assert
  (handler-case
      (let ((*compile-file-warnings-behaviour* :error))