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

cosmetic: indentation fix.

Browse source 
Signed-off-by: Daniel Kochmański <dkochmanski@turtle-solutions.eu>
This commit is contained in:
Daniel Kochmański 2015-05-10 21:50:43 +02:00
parent 7798163815
commit 30ce3bb408
1 changed files with 26 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

51
src/lsp/format.lsp
View file

@ -108,29 +108,28 @@
(setf (schar s 0) #\.)
(values s (length s) t nil 0))))
(multiple-value-bind (e string)
(cond
(fdigits
(float-to-digits nil x
(min (- (+ fdigits scale))
(- fmin))
nil))
((null width)
(float-to-digits nil x nil nil))
(T (let ((w (multiple-value-list
(float-to-digits nil x
(max 0
(+ (1- width)
(if (minusp scale)
scale 0)))
t)))
(f (multiple-value-list
(float-to-digits nil x
(- (+ fmin scale))
nil))))
(if (>= (length (cadr w))
(length (cadr f)))
(values-list w)
(values-list f)))))
(cond (fdigits
(float-to-digits nil x
(min (- (+ fdigits scale))
(- fmin))
nil))
((null width)
(float-to-digits nil x nil nil))
(T (let ((w (multiple-value-list
(float-to-digits nil x
(max 0
(+ (1- width)
(if (minusp scale)
scale 0)))
t)))
(f (multiple-value-list
(float-to-digits nil x
(- (+ fmin scale))
nil))))
(if (>= (length (cadr w))
(length (cadr f)))
(values-list w)
(values-list f)))))
(let* ((exp (+ e scale))
(stream (make-string-output-stream))
(length (length string))
@ -1349,7 +1348,8 @@
(sys::flonum-to-string (abs number) digits d k)
;;if caller specifically requested no fraction digits, suppress the
;;optional trailing zero
(when (and d (zerop d)) (setq tpoint nil))
(when (and d (zerop d))
(setq tpoint nil))
(when w
(decf spaceleft len)
;; obligatory trailing zero (unless explicitly cut with ,d)
@ -1362,7 +1362,8 @@
(setq lpoint nil))))
(cond ((and w (< spaceleft 0) ovf)
;;field width overflow
(dotimes (i w) (write-char ovf stream))
(dotimes (i w)
(write-char ovf stream))
t)
(t
(when w (dotimes (i spaceleft) (write-char pad stream)))