From ddca83ad8fd8345cb5346ad2c220921dacadccd5 Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <tunes@google.com> Date: Mon, 3 Nov 2014 23:22:46 -0500 Subject: [PATCH] Make the test-undeferred-warnings.script more portable. --- test/test-undeferred-warnings.script | 21 +++++++++++---------- 1 file changed, 11 insertions(+), 10 deletions(-) diff --git a/test/test-undeferred-warnings.script b/test/test-undeferred-warnings.script index 810bcd23..36fed796 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)))) -- GitLab