Changeset 15421


Ignore:
Timestamp:
Jul 8, 2012, 7:51:28 PM (7 years ago)
Author:
gb
Message:

format-dollars ($ directive): print leading zeroes even if trailing
zeroes.

Fixes ticket:992 in the trunk.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/format.lisp

    r15401 r15421  
    20992099        (cond
    21002100         ((> before-pt 0)
     2101          (dotimes (i (- n before-pt))
     2102            (write-char #\0 stream))
    21012103          (cond ((> strlen before-pt)
    2102                  (dotimes (i (- n before-pt))
    2103                    (write-char #\0 stream))
    21042104                 (write-string str stream :start 0 :end before-pt)
    21052105                 (write-char #\. stream)
Note: See TracChangeset for help on using the changeset viewer.