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