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