On 19 Mar 2009 , Raymond Toy wrote:
-----------------------
> Here is the fix that was checked in. Just place this in some file and
> load it. (Or compile and load it.) Then you can continue your work.
> Doesn't fix the issue about 1b<foo> but does fix the bfloat addition
> issue.
---------------------------------
! Thanks for the fix !
---------------------------------------
(%i3) load("bfadd.lisp");
(%o3) bfadd.lisp
(%i4) g2(j ) := block([fpprec,z,e],
fpprec:60,
z : bfloat(10^(j)),
e : exp(-z),
print(j,z,e ),
bfloat(1 + e) )$
(%i5) for j:7 thru 9 do print(g2(j ))$
7 1.0b7
1.51693678089873435758946378226101624640108558149085643695901b-4342945
1.0b0
8 1.0b8
6.45170969282176600884365482713563323969794742528138149981955b-43429449
1.0b0
9 1.0b9
1.24953427192101328092437849901499108976451137918672735720598b-434294482
1.0b0
----------------------------------
Ted Woollett