From fc8e4f95c1fbd8a5d1ea6aa57316147feb64224f Mon Sep 17 00:00:00 2001 From: Charles Zhang Date: Sat, 23 Apr 2022 11:15:18 -0700 Subject: [PATCH] Turn off *check-consistency* for a test. Check consistency doesn't work here on high debug. In addition, the original test case didn't call for it anyway. The reason it doesn't work is that signalling a compiler error while compiling breaks the consistency of the IR. That's just how it is. --- tests/compiler.impure.lisp | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/tests/compiler.impure.lisp b/tests/compiler.impure.lisp index 3857c1dbe..e4a7774b6 100644 --- a/tests/compiler.impure.lisp +++ b/tests/compiler.impure.lisp @@ -2490,13 +2490,12 @@ (test-util:with-test (:name :bug-308941) (multiple-value-bind (warn fail) - (let ((*check-consistency* t)) - (ctu:file-compile - "(eval-when (:compile-toplevel :load-toplevel :execute) + (ctu:file-compile + "(eval-when (:compile-toplevel :load-toplevel :execute) (defstruct foo3)) (defstruct bar (foo #.(make-foo3)))" - :load nil)) + :load nil) ;; ...but the compiler should not break. (assert (and warn fail))))