mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-14 13:21:54 -08:00
Code Issues Projects Releases Packages Wiki Activity

The *FLOAT*INFINITY constants were all assigned the bits resulting from TRAP-FPE, not the floating point number.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-06-04 17:58:28 +02:00
parent 5008fdd45f
commit 0f055a2e63
1 changed files with 16 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

37
src/lsp/numlib.lsp
View file

@ -68,27 +68,22 @@
(not (= (float 1 E) (- (float 1 E) E)))")))
#+IEEE-FLOATING-POINT
(progn
(defconstant short-float-positive-infinity
(let* ((bits (si::trap-fpe 'last nil)))
(/ (coerce 1 'short-float) (coerce 0.0 'short-float))
(si::trap-fpe bits t)))
(defconstant short-float-negative-infinity (- short-float-positive-infinity))
(defconstant single-float-positive-infinity
(let* ((bits (si::trap-fpe 'last nil)))
(/ (coerce 1 'single-float) (coerce 0.0 'single-float))
(si::trap-fpe bits t)))
(defconstant single-float-negative-infinity (- single-float-positive-infinity))
(defconstant double-float-positive-infinity
(let* ((bits (si::trap-fpe 'last nil)))
(/ 1 (coerce 0.0 'double-float))
(si::trap-fpe bits t)))
(defconstant double-float-negative-infinity (- double-float-positive-infinity))
(defconstant long-float-positive-infinity
(let* ((bits (si::trap-fpe 'last nil)))
(/ 1 (coerce 0.0 'long-float))
(si::trap-fpe bits t)))
(defconstant long-float-negative-infinity (- long-float-positive-infinity)))
(locally
(declare (notinline -))
(let* ((bits (si::trap-fpe 'last nil)))
(let ((a (/ (coerce 1 'short-float) (coerce 0.0 'short-float))))
(defconstant short-float-positive-infinity a)
(defconstant short-float-negative-infinity (- a)))
(let ((a (/ (coerce 1 'single-float) (coerce 0.0 'single-float))))
(defconstant single-float-positive-infinity a)
(defconstant single-float-negative-infinity (- a)))
(let ((a (/ (coerce 1 'double-float) (coerce 0.0 'double-float))))
(defconstant double-float-positive-infinity a)
(defconstant double-float-negative-infinity (- a)))
(let ((a (/ (coerce 1 'long-float) (coerce 0.0 'long-float))))
(defconstant long-float-positive-infinity a)
(defconstant long-float-negative-infinity (- a)))
(si::trap-fpe bits t)))
(defconstant imag-one #C(0.0 1.0))