From cc38c1d39eef341cfb978ba78a4d3d35772d7273 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Tue, 6 Dec 2016 21:15:17 +0100 Subject: [PATCH] ieee-fp: trap-fpe bits with infinity arithmetic --- src/tests/normal-tests/ieee-fp.lsp | 19 +++++++++++-------- 1 file changed, 11 insertions(+), 8 deletions(-) diff --git a/src/tests/normal-tests/ieee-fp.lsp b/src/tests/normal-tests/ieee-fp.lsp index c98d67199..fbae43916 100644 --- a/src/tests/normal-tests/ieee-fp.lsp +++ b/src/tests/normal-tests/ieee-fp.lsp @@ -11,14 +11,17 @@ (suite 'ieee-fp) (test ieee-fp.0001.infinity-eql - (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))))) + (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))) (test ieee-fp.0002.printing (let ((nums (list ext:single-float-negative-infinity