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

tests: improve without-fpe-traps

Browse source
This commit is contained in:
Daniel Kochmański 2017-01-21 09:26:44 +01:00
parent eddfe4009c
commit e44e7877d9
1 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -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