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

format: scale-exponent: fix denormalized long-float

Browse source 
Fix submitted by Marius Gerbershagen. Fixes 383.
This commit is contained in:
Daniel Kochmański 2017-05-25 08:03:32 +02:00
parent 7ef7116589
commit 3c4e1541e5
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/lsp/format.lsp
View file

@ -227,7 +227,7 @@
;; Note that we have to compute the exponential _every_ _time_ in the loop
;; because multiplying just by 10.0l0 every time would lead to a greater
;; loss of precission.
(let ((ex (round (* exponent #.(log 2l0 10)))))
(let ((ex (- (round (* exponent #.(log 2l0 10))) delta)))
(declare (fixnum ex))
(if (minusp ex)
(loop for y of-type long-float