common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

Turn off *check-consistency* for a test.

Browse source 
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.
This commit is contained in:
Charles Zhang 2022-04-23 11:15:18 -07:00
parent 1e7d2505db
commit fc8e4f95c1
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
tests/compiler.impure.lisp
View file

@ -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))))