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

cosmetic: fix indent

Browse source
This commit is contained in:
Daniel Kochmanski 2017-05-12 23:38:10 +02:00
parent f4e25c7055
commit 2d0b3ca25e
1 changed files with 5 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/lsp/format.lsp
View file

@ -114,14 +114,11 @@
(declare (type float x))
(if (zerop x)
;; Zero is a special case which FLOAT-STRING cannot handle.
(cond ((null fdigits)
(values ".0" 2 t nil 0))
((zerop fdigits)
(values "0." 2 nil t 1))
(T
(let ((s (make-string (1+ fdigits) :initial-element #\0)))
(setf (schar s 0) #\.)
(values s (length s) t nil 0))))
(cond ((null fdigits) (values ".0" 2 t nil 0))
((zerop fdigits) (values "0." 2 nil t 1))
(T (let ((s (make-string (1+ fdigits) :initial-element #\0)))
(setf (schar s 0) #\.)
(values s (length s) t nil 0))))
(multiple-value-bind (e string zero?)
(cond (fdigits
(float-to-digits* nil x