From 3bf98a96e092d4e6c2f687fab47b47f7ec80a488 Mon Sep 17 00:00:00 2001 From: Marius Gerbershagen Date: Sat, 13 Aug 2022 20:05:08 +0200 Subject: [PATCH] tests: fix typo in trap-fpe smoke test 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. --- src/tests/normal-tests/ieee-fp.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/tests/normal-tests/ieee-fp.lsp b/src/tests/normal-tests/ieee-fp.lsp index 2a553580d..0f3adf18a 100644 --- a/src/tests/normal-tests/ieee-fp.lsp +++ b/src/tests/normal-tests/ieee-fp.lsp @@ -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))