diff --git a/test/test-undeferred-warnings.script b/test/test-undeferred-warnings.script index 810bcd23d1794597a400a98dec4296e8da2ea669..36fed7965d06e7427882ca4bf6db609f45b97a64 100644 --- a/test/test-undeferred-warnings.script +++ b/test/test-undeferred-warnings.script @@ -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))))