Repositories / ecl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: ab50a55)
format: fix bug for empty width and fdigits
authorDaniel Kochmański <daniel@turtleware.eu>
Mon, 3 Aug 2015 14:11:32 +0000 (16:11 +0200)
committerDaniel Kochmański <daniel@turtleware.eu>
Mon, 3 Aug 2015 14:11:32 +0000 (16:11 +0200)
When neither w and d weren't set, then k was ignored.

Signed-off-by: Daniel Kochmański <daniel@turtleware.eu>
src/lsp/format.lsp patch | blob | blame | history

diff --git a/src/lsp/format.lsp b/src/lsp/format.lsp
index c1ad851..a1291e4 100644 (file)
--- a/src/lsp/format.lsp
+++ b/src/lsp/format.lsp
@@ -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)
Embeddable Common Lisp (Official: https://gitlab.com/embeddable-common-lisp/ecl)