>>>>> "Simon" == Simon Alexander <[EMAIL PROTECTED]> writes:
Simon> I'll have to think about it tomorrow, when I'm more awake. Attached
Simon> patch will fix this behaviour, but I'm too sleepy to convince myself
Simon> it doesn't screw anything else up :)
[snip]
Simon> diff -u -r1.27 target-format.lisp
Simon> --- src/code/target-format.lisp 28 Jan 2005 16:49:00 -0000
1.27
Simon> +++ src/code/target-format.lisp 10 Mar 2005 04:39:43 -0000
Simon> @@ -590,7 +590,7 @@
Simon> (estr (decimal-string (abs expt)))
Simon> (elen (if e (max (length estr) e) (length estr)))
Simon> (fdig (if d (if (plusp k) (1+ (- d k)) d) nil))
Simon> - (fmin (if (minusp k) (- 1 k) nil))
Simon> + (fmin (if (minusp k) (- 1 k) (1+ fdig)))
Simon> (spaceleft (if w
Simon> (- w 2 elen
Simon> (if (or atsign (minusp (float-sign
number)))
This seems reasonable. It will take some time for me to figure out
float printing again, though. :-(
Ray
