>>>>> "Raymond" == Raymond Toy <[EMAIL PROTECTED]> writes:
Raymond> There's a bug in flonum-to-digits. It was rewritten to produce
more
Raymond> accurate output, and obviously something is broken.
Raymond> Sorry! I'll look into it and try to fix it.
Found it. A subtle logic error. This bug and fix mostly likely
applies to sbcl as well.
Do you want a patch to 19a or can you live with a snapshot? We should
probably make a patch for 19a anyway---it's a pretty serious bug.
Ray
Index: print.lisp
===================================================================
RCS file: /project/cmucl/cvsroot/src/code/print.lisp,v
retrieving revision 1.99
diff -u -r1.99 print.lisp
--- print.lisp 14 Oct 2004 16:32:44 -0000 1.99
+++ print.lisp 6 Dec 2004 19:41:12 -0000
@@ -1807,7 +1807,7 @@
(m+ m+ (* m+ print-base))
(m- m- (* m- print-base)))
((not (or (< (* (+ r m+) print-base) s)
- (and high-ok (= (* (+ r m+) print-base)
s))))
+ (and (not high-ok) (= (* (+ r m+)
print-base) s))))
(values k (generate r s m+ m-)))))))
(generate (r s m+ m-)
(multiple-value-bind (d r)
