Skip to content
Snippets Groups Projects
Commit 53b7feec authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Fix tests for LispWorks.

parent 6b4a914e
No related branches found
No related tags found
No related merge requests found
;;; -*- Lisp -*-
#+lispworks (lispworks:load-all-patches)
(load "script-support.lisp")
(load-asdf)
#+ecl (require :cmp)
......
......@@ -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)
......
......@@ -12,7 +12,7 @@
t)
(compile-file-error () nil)))
#-ecl
#+(or clozure sbcl)
(assert
(handler-case
(let ((*compile-file-warnings-behaviour* :error))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment