The Format function's $ directive only displays one 0 after the decimal when default is two

[ninejaguar]

Environment:
Corman Common Lisp 3.1 (Patch level 2) under Windows 10 64bit

Issue:
The Format function's $ directive fails to display ".00" as the default when preceded by a tilde. It displays ".0" instead. This fails in Corman CL, but works in SBCL 1.4.14 64bit and in Clozure CL 1.11.5 64bit when tested.

Corman CL Example1: Note the issue is that 10.0 is returned rather than 10.00.

?(format t "10 Dollars ~$ ~%" 10)
10 Dollars 10.0
NIL

SBCL Example1: SBCL produces the correct result, just as Clozure CL does.

* (format t "10 Dollars ~$ ~%" 10)
10 Dollars 10.00
NIL

Reference:

1. CLHS: 22.3.3.4 Tilde Dollarsign: Monetary Floating-Point.
   "The full form is ~d,n,w,padchar$. The parameter d is the number of digits to print after the decimal point (default value 2); n is the minimum number of digits to print before the decimal point (default value 1); w is the minimum total width of the field to be printed (default value 0). "
   http://www.lispworks.com/documentation/lw70/CLHS/Body/22_ccd.htm

[arbv]

@ninejaguar

Thank you for reporting this!

Hopefully the issue is fixed (and no new ones were introduced).

Could you verify this one as well as the other one (#53)?

[arbv]

I managed to produce a better fix.

@ninejaguar, could you verify?

CormanLispBinaries.zip

[ninejaguar]

It works! Thank you for taking care of it!

(format t "10 Dollars ~$ ~%" 10)
10 Dollars 10.00 
Nil