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