[cmucl-ticket] Re: #12: (format t "~10, 1, 2, 0, '*, , 'DE" 1d-6) -> 1.0d-6

[cmucl]

#12: (format t "~10,1,2,0,'*,,'DE" 1d-6) -> 1.0d-6
---------------------+------------------------------------------------------
  Reporter:  rtoy    |       Owner:  rtoy    
      Type:  defect  |      Status:  assigned
  Priority:  minor   |   Milestone:          
 Component:  Core    |     Version:  19d     
Resolution:          |    Keywords:          
---------------------+------------------------------------------------------
Changes (by rtoy):

  * status:  new => assigned
  * owner:  somebody => rtoy

Comment:

 This is caused by lisp::scale-exponent.  For 1d-6, it returns
 0.99999999999...d0 and -6.  And the .9999999... gets printed as 1.0 with
 an exponent of -6.

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