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

TRAP-FPE is not needed in the core lisp library

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-12-23 20:26:37 +01:00
parent 02db89a9bc
commit 065dd6b59e
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/lsp/numlib.lsp
View file

@ -33,8 +33,9 @@
(/= (float 1 x) (+ (float 1 x) x)))
(epsilon- (x)
(/= (float 1 x) (- (float 1 x) x))))
#+ecl-min
(si::trap-fpe 'last nil)
`(eval-when (compile load eval)
(let ((bits (si::trap-fpe 'last nil)))
(defconstant short-float-epsilon
,(binary-search #'epsilon+ (coerce 0 'short-float) (coerce 1 'short-float))
"The smallest postive short-float E that satisfies
@ -67,7 +68,7 @@
,(binary-search #'epsilon- (coerce 0 'long-float) (coerce 1 'long-float))
"The smallest positive long-float E that satisfies
(not (= (float 1 E) (- (float 1 E) E)))")
(si::trap-fpe 'last nil))))
))
#+IEEE-FLOATING-POINT
(locally