Fix monetary floating-point formatted output

(Scott Burson)

The ~$ format directive had the following:

ABCL> (format nil "~$" -2.34)
--2.34

c.f. <https://mailman.common-lisp.net/pipermail/armedbear-devel/2018-May/003918.html>
parent 3595cae1
......@@ -2398,7 +2398,7 @@
(let* ((signstr (if (minusp number) "-" (if atsign "+" "")))
(signlen (length signstr)))
(multiple-value-bind (str strlen ig2 ig3 pointplace)
(sys::flonum-to-string number nil d nil)
(sys::flonum-to-string (abs number) nil d nil)
(declare (ignore ig2 ig3 strlen))
(when colon
(write-string signstr stream))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment