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

format-f: simplify code.

Browse source 
Signed-off-by: Daniel Kochmański <dkochmanski@turtle-solutions.eu>
This commit is contained in:
Daniel Kochmański 2015-05-12 08:53:41 +02:00
parent 1bd96da186
commit 3e19a62b2d
1 changed files with 7 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

19
src/lsp/format.lsp
View file

@ -130,7 +130,7 @@
(T (let ((w (multiple-value-list
(float-to-digits* nil x
(max 0
(+ (1- width)
(+ (- width 2)
(if (minusp scale)
scale 0)))
t)))
@ -1365,19 +1365,14 @@
(prin1 number stream)
nil)
(t
(let* ((spaceleft w)
(digits (if (null spaceleft)
nil
(1- spaceleft))))
(let ((spaceleft w))
(when (and w (or atsign
(minusp number)))
(decf spaceleft)
(decf digits))
(multiple-value-bind
(str len lpoint tpoint)
(sys::flonum-to-string (abs number) digits d k)
;;if caller specifically requested no fraction digits, suppress the
;;optional trailing zero
(decf spaceleft))
(multiple-value-bind (str len lpoint tpoint)
(sys::flonum-to-string (abs number) spaceleft d k)
;; if caller specifically requested no fraction digits, suppress the
;; trailing zero
(when (eql d 0)
(setq tpoint nil))
(when w