From cmucl-devel at common-lisp.net Wed Oct 3 21:10:09 2007 From: cmucl-devel at common-lisp.net (cmucl) Date: Wed, 03 Oct 2007 21:10:09 -0000 Subject: [cmucl-ticket] Re: #1: prin1 and ~E produce different outputs. In-Reply-To: <076.7db2c3e210ca4a70e65ce806121e729d@common-lisp.net> References: <076.7db2c3e210ca4a70e65ce806121e729d@common-lisp.net> Message-ID: <085.335dfe8ee25a9ba95b84ada08892e578@common-lisp.net> #1: prin1 and ~E produce different outputs. ------------------------+--------------------------------------------------- Reporter: anonymous | Owner: rtoy Type: defect | Status: closed Priority: minor | Milestone: Component: Core | Version: 19c Resolution: fixed | Keywords: printing ------------------------+--------------------------------------------------- Changes (by rtoy): * resolution: => fixed * status: assigned => closed Comment: One particular example is {{{ (format nil "~E" 1.234567890123456789d4) "1.2345678901234565d+0" }}} The right answer is {{{ "1.2345678901234567d+0" }}} which is what {{{prin1}}} returns. This should now be fixed in CVS. -- Ticket URL: cmucl cmucl From cmucl-devel at common-lisp.net Thu Oct 4 15:40:28 2007 From: cmucl-devel at common-lisp.net (cmucl) Date: Thu, 04 Oct 2007 15:40:28 -0000 Subject: [cmucl-ticket] Re: #12: (format t "~10, 1, 2, 0, '*, , 'DE" 1d-6) -> 1.0d-6 In-Reply-To: <076.e4864bb5ea0d6972cd6b73936991accd@common-lisp.net> References: <076.e4864bb5ea0d6972cd6b73936991accd@common-lisp.net> Message-ID: <085.3cc09aa926633acd2d496d0b1fe73d20@common-lisp.net> #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: cmucl cmucl From cmucl-devel at common-lisp.net Tue Oct 9 16:51:48 2007 From: cmucl-devel at common-lisp.net (cmucl) Date: Tue, 09 Oct 2007 16:51:48 -0000 Subject: [cmucl-ticket] Re: #12: (format t "~10, 1, 2, 0, '*, , 'DE" 1d-6) -> 1.0d-6 In-Reply-To: <076.e4864bb5ea0d6972cd6b73936991accd@common-lisp.net> References: <076.e4864bb5ea0d6972cd6b73936991accd@common-lisp.net> Message-ID: <085.63e02f19a6371d7a7db5b597842dcb13@common-lisp.net> #12: (format t "~10,1,2,0,'*,,'DE" 1d-6) -> 1.0d-6 ---------------------+------------------------------------------------------ Reporter: rtoy | Owner: rtoy Type: defect | Status: closed Priority: minor | Milestone: Component: Core | Version: 19d Resolution: fixed | Keywords: ---------------------+------------------------------------------------------ Changes (by rtoy): * resolution: => fixed * status: assigned => closed Comment: Fixed in CVS. -- Ticket URL: cmucl cmucl