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

format: flonum-to-string: Minimal width for numbers is 1 not 0.

Browse source 
Signed-off-by: Daniel Kochmański <dkochmanski@turtle-solutions.eu>
This commit is contained in:
Daniel Kochmański 2015-05-11 11:05:41 +02:00
parent 8b0b31f34e
commit bfa1f614ed
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

@ -117,7 +117,7 @@
(float-to-digits nil x nil nil))
(T (let ((w (multiple-value-list
(float-to-digits nil x
(max 0
(max 1
(+ (1- width)
(if (minusp scale)
scale 0)))