From 0df83ada2b97a3934d09b4f92a2c94de9b602e3e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Tue, 20 Dec 2016 18:23:40 +0100 Subject: [PATCH] tests: ieee-fp: trap-fpe: use symbol, not a keyword --- src/tests/normal-tests/ieee-fp.lsp | 21 ++++++++++----------- 1 file changed, 10 insertions(+), 11 deletions(-) diff --git a/src/tests/normal-tests/ieee-fp.lsp b/src/tests/normal-tests/ieee-fp.lsp index fbae43916..9ff4ea4d6 100644 --- a/src/tests/normal-tests/ieee-fp.lsp +++ b/src/tests/normal-tests/ieee-fp.lsp @@ -11,17 +11,16 @@ (suite 'ieee-fp) (test ieee-fp.0001.infinity-eql - (let ((bits (si:trap-fpe :last nil))) - (si:trap-fpe bits nil) - (let ((sfni ext:single-float-negative-infinity) - (sfpi ext:single-float-positive-infinity) - (dfni ext:double-float-negative-infinity) - (dfpi ext:double-float-positive-infinity)) - (is (eql sfni (- sfpi))) - (is (eql dfni (- dfpi))) - (is (not (eql sfni (- dfpi)))) - (is (= sfni (- dfpi)))) - (si:trap-fpe bits t))) + (si:trap-fpe 'last nil) + (let ((sfni ext:single-float-negative-infinity) + (sfpi ext:single-float-positive-infinity) + (dfni ext:double-float-negative-infinity) + (dfpi ext:double-float-positive-infinity)) + (is (eql sfni (- sfpi))) + (is (eql dfni (- dfpi))) + (is (not (eql sfni (- dfpi)))) + (is (= sfni (- dfpi)))) + (si:trap-fpe 'last t)) (test ieee-fp.0002.printing (let ((nums (list ext:single-float-negative-infinity