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

format-e: fix typo.

Browse source 
Signed-off-by: Daniel Kochmański <dkochmanski@turtle-solutions.eu>
This commit is contained in:
Daniel Kochmański 2015-05-12 14:58:00 +02:00
parent 2023c47c42
commit 586405328e
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/lsp/format.lsp
View file

@ -1431,7 +1431,7 @@
((floatp number)
(format-exp-aux stream number w d e k ovf pad marker atsign))
((rationalp number)
(format-exp-aux streamn
(format-exp-aux stream
(coerce number 'single-float)
w d e k ovf pad marker atsign))
(T
@ -1471,6 +1471,9 @@
(prin1 number stream)
(multiple-value-bind (num expt)
(sys::scale-exponent (abs number))
(when (< expt 0)
(decf k))
;; (incf expt))
(let* ((expt (- expt k))
(estr (decimal-string (abs expt)))
(elen (if e (max (length estr) e) (length estr)))