mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-25 22:12:40 -08:00
Code Issues Projects Releases Packages Wiki Activity

tests: fix typo in trap-fpe smoke test

Browse source 
Due to the typo, all floating point exceptions were enabled after the
test had run. This leads to failures in other tests for instance due
to floating-point-inexact errors. Now, the exception flags are
correctly restored again after the test is finished.
This commit is contained in:
Marius Gerbershagen 2022-08-13 20:05:08 +02:00
parent b3d1a3e343
commit 3bf98a96e0
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/tests/normal-tests/ieee-fp.lsp
View file

@ -795,7 +795,7 @@ Common Lisp type contagion rules."
(test ieee-fp.0033.trap-fpe-smoke-test
(let ((bits (si:trap-fpe 'cl:last t)))
(unwind-protect
(dolist (flag '(t nil t))
(dolist (flag '(t nil))
(finishes (si:trap-fpe t flag))
(finishes (si:trap-fpe bits flag))
(finishes (si:trap-fpe 'last flag))