From cmucl-devel at common-lisp.net  Thu Sep 27 16:29:02 2007
From: cmucl-devel at common-lisp.net (cmucl)
Date: Thu, 27 Sep 2007 16:29:02 -0000
Subject: [cmucl-ticket] #12: (format t "~10,1,2,0,'*,,'DE" 1d-6) -> 1.0d-6
Message-ID: <076.e4864bb5ea0d6972cd6b73936991accd@common-lisp.net>

#12: (format t "~10,1,2,0,'*,,'DE" 1d-6) -> 1.0d-6
--------------------+-------------------------------------------------------
 Reporter:  rtoy    |       Owner:  somebody
     Type:  defect  |      Status:  new     
 Priority:  minor   |   Milestone:          
Component:  Core    |     Version:  19d     
 Keywords:          |  
--------------------+-------------------------------------------------------
 {{{
 (format t "~10,1,2,0,'*,,'DE" 1d-6) ->
 1.0D-06
 }}}

 But since the scale factor is 0, the digits should be printed after the
 decimal point.  The CLHS, sec 22.3.3.2 says:


 {{{
 If k is zero, then d digits are printed after the decimal point, and a
 single zero
 digit appears before the decimal point if the total field width will
 permit it.
 }}}

 This works ok for other values:


 {{{
 (format t "~10,1,2,0,'*,,'DE" 1d-5) ->
 0.1D-04
 }}}

-- 
Ticket URL: <http://trac.common-lisp.net/cmucl/ticket/12>
cmucl <http://common-lisp.net/project/cmucl>
cmucl