From ae6da4a8d02da74ed1413ebf6984b0e2d0bc3d9a Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <tunes@google.com>
Date: Tue, 4 Nov 2014 05:07:41 -0500
Subject: [PATCH] Port the undeferred-warnings test to all supported tested
 implementations.

---
 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 36fed796..5c163fca 100644
--- a/test/test-undeferred-warnings.script
+++ b/test/test-undeferred-warnings.script
@@ -11,13 +11,14 @@
   :components ((:file "fun-with-undefined-locals")))
 
 
-#+(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))))
+;; GCL fails to warn; CMUCL, SBCL and presumably SCL defer warning to end of compilation unit;
+;; SCL and XCL not actually tested
+
+(errors #+(or abcl allegro clisp clozure ecl lispworks mkcl xcl) compile-file-error
+        #+(or cmu gcl sbcl scl) null
+        (let ((*compile-file-warnings-behaviour* :error))
+          (load-system :undefined-variables)))
+(errors #+(or abcl allegro clisp clozure ecl lispworks mkcl xcl) compile-file-error
+        #+(or cmu gcl sbcl scl) null
+        (let ((*compile-file-warnings-behaviour* :warning))
+          (load-system :undefined-variables :force t)))
-- 
GitLab