| commit | 9a6fdf9c2ba900718b0e6fa21931b2454f05da21 | |
| author | Thomas M. Hermann <tmh.public@gmail.com> | |
| Mon, 6 Apr 2009 15:08:29 +0000 (6 10:08 -0500) | ||
| committer | Thomas M. Hermann <tmh.public@gmail.com> | |
| Mon, 6 Apr 2009 15:08:29 +0000 (6 10:08 -0500) | ||
| tree | 63a16d95943537a7e794f229ae659e72a19c906d | treesnapshot (tar.gz zip) |
| parent | 2a04c3da82d13bf939017fdc1444b935a9e8213e | commitdiff |
Bug fix for NORMALIZE-FLOAT, SEQUENCE-ERROR and ARRAY-ERROR.
The biggest errors were in the iteration forms in SEQUENCE-ERROR and
ARRAY-ERROR. Originally, a DOTIMES was used with an LET form as the
body. The current form was a translation to a DO* iteration, but the
return logic was flawed. The return logic has been corrected by going
back to a DOTIMES iteration as the body of LET form and using SETF to
set the variables on each iteration. It is probably time to learn to
use LOOP.
I re-introduced the exactly equal to 10.0 when I corrected
NORMALIZE-FLOAT to return a significand in the range [0,1). This was
corrected and NORMALIZE-FLOAT correctly handles values of 10.0, again.
The biggest errors were in the iteration forms in SEQUENCE-ERROR and
ARRAY-ERROR. Originally, a DOTIMES was used with an LET form as the
body. The current form was a translation to a DO* iteration, but the
return logic was flawed. The return logic has been corrected by going
back to a DOTIMES iteration as the body of LET form and using SETF to
set the variables on each iteration. It is probably time to learn to
use LOOP.
I re-introduced the exactly equal to 10.0 when I corrected
NORMALIZE-FLOAT to return a significand in the range [0,1). This was
corrected and NORMALIZE-FLOAT correctly handles values of 10.0, again.
| floating-point.lisp | diffblobblamehistory |