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

format: fix bug for empty width and fdigits

Browse source 
When neither w and d weren't set, then k was ignored.

Signed-off-by: Daniel Kochmański <daniel@turtleware.eu>
This commit is contained in:
Daniel Kochmański 2015-08-03 16:11:32 +02:00
parent ab50a55fb1
commit 3f7fe751b3
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

@ -1357,7 +1357,7 @@
(defun format-fixed-aux (stream number w d k ovf pad atsign)
(declare (si::c-local))
(cond
((or (not (or w d))
((or (not (or w d k))
#-ecl
(and (floatp number)
(or (float-infinity-p number)