Commit ddca83ad authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Make the test-undeferred-warnings.script more portable.

parent 87518918
......@@ -10,13 +10,14 @@
(def-test-system :undefined-variables
:components ((:file "fun-with-undefined-locals")))
(errors #+(or allegro clozure) compile-file-error
#+(or cmu scl) null
#+sbcl compile-failed-error
(let ((*compile-file-warnings-behaviour* :error))
(load-system :undefined-variables)))
(errors #+(or allegro clozure) compile-file-error
#+(or cmu scl) null
#+sbcl compile-failed-error
(let ((*compile-file-warnings-behaviour* :warning))
(load-system :undefined-variables :force t)))
#+(or allegro clozure cmu sbcl scl)
(progn
(errors #+(or allegro clozure) compile-file-error
#+(or cmu sbcl scl) null
(let ((*compile-file-warnings-behaviour* :error))
(load-system :undefined-variables)))
(errors #+(or allegro clozure) compile-file-error
#+(or cmu sbcl scl) null
(let ((*compile-file-warnings-behaviour* :warning))
(load-system :undefined-variables :force t))))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment