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

format: float: signed zero: print -0.0 if signed

Browse source 
Fixes #365.
This commit is contained in:
Daniel Kochmanski 2017-05-12 23:44:10 +02:00
parent 2d0b3ca25e
commit 98b890ce6e
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/lsp/format.lsp
View file

@ -1363,7 +1363,8 @@
(t
(let ((spaceleft w))
(when (and w (or atsign
(minusp number)))
(minusp number)
#+ieee-floating-point (minusp (atan number -1))))
(decf spaceleft))
(multiple-value-bind (str len lpoint tpoint)
(sys::flonum-to-string (abs number) spaceleft d k)
@ -1389,7 +1390,8 @@
t)
(t
(when w (dotimes (i spaceleft) (write-char pad stream)))
(if (minusp number)
(if (or (minusp number)
#+ieee-floating-point (minusp (atan number -1)))
(write-char #\- stream)
(if atsign (write-char #\+ stream)))
(when lpoint (write-char #\0 stream))