From e44e7877d92aaab2eb02789db22170a0c178ab01 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Sat, 21 Jan 2017 09:26:44 +0100
Subject: [PATCH] tests: improve without-fpe-traps

---
 src/tests/normal-tests/ieee-fp.lsp | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/src/tests/normal-tests/ieee-fp.lsp b/src/tests/normal-tests/ieee-fp.lsp
index 21a673595..1b5d58793 100644
--- a/src/tests/normal-tests/ieee-fp.lsp
+++ b/src/tests/normal-tests/ieee-fp.lsp
@@ -11,11 +11,12 @@
 (suite 'ieee-fp)
 
 (defmacro without-fpe-traps (&body body)
-  `(unwind-protect
-        (progn
-          (si:trap-fpe 'last nil)
-          ,@body)
-     (si:trap-fpe 'last t)))
+  `(let ((bits (si:trap-fpe 'cl:last t)))
+     (unwind-protect
+          (progn
+            (si:trap-fpe t nil)
+            ,@body)
+       (si:trap-fpe bits t))))
 
 (test ieee-fp.0001.infinity-eql
   (without-fpe-traps