From 1ba453f81072f80429461536209dcab03638aa86 Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <tunes@google.com>
Date: Thu, 7 May 2015 23:16:05 -0400
Subject: [PATCH] Make test pass on ecl_bytecodes

---
 test/test-undeferred-warnings.script | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/test/test-undeferred-warnings.script b/test/test-undeferred-warnings.script
index 5c163fca..5f871eb4 100644
--- a/test/test-undeferred-warnings.script
+++ b/test/test-undeferred-warnings.script
@@ -14,11 +14,11 @@
 ;; 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
+(errors #+(or abcl allegro clisp clozure (and ecl (not ecl-bytecmp)) lispworks mkcl xcl) compile-file-error
+        #+(or cmu (and ecl ecl-bytecmp) 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
+(errors #+(or abcl allegro clisp clozure (and ecl (not ecl-bytecmp)) lispworks mkcl xcl) compile-file-error
+        #+(or cmu (and ecl ecl-bytecmp) gcl sbcl scl) null
         (let ((*compile-file-warnings-behaviour* :warning))
           (load-system :undefined-variables :force t)))
-- 
GitLab