[armedbear] #409: CL:FORMAT ~$ buglet

[armedbear]

#409: CL:FORMAT ~$ buglet
-------------------------------+----------------------------
 Reporter:  mevenson           |           Owner:
     Type:  defect             |          Status:  new
 Priority:  minor              |       Milestone:  1.3.4
Component:  (A)MOP             |         Version:  1.4.0-dev
 Keywords:  low-hanging-fruit  |  Parent Tickets:
-------------------------------+----------------------------
 Scott notes in the mailing list
 {{{

 In 1.3.2,

   > (format nil "~$" -32.17)
   --32.17

 Negative values are getting a double minus sign.

 The right fix seems to be, in 'format-dollars', to pass '(abs number)'
 rather than 'number' to 'sys::flonum-to-string'.
 }}}

--
Ticket URL: <http://abcl.org/trac/ticket/409>
armedbear <http://abcl.org>
armedbear