Raymond Toy pushed to branch issue-298-with-float-rounding-mode at cmucl / cmucl
Commits:
-
6ba75434
by Carl Shapiro at 2024-04-07T23:19:27+00:00
1 changed file:
Changes:
| ... | ... | @@ -512,7 +512,7 @@ |
| 512 | 512 | |
| 513 | 513 | Only the rounding mode is restored on exit; other floating-point
|
| 514 | 514 | modes are not modified. "
|
| 515 | - (let ((old-rounding-mode (gensym "OLD-ROUNDING-MODE-"))
|
|
| 515 | + (let ((old-mode (gensym "OLD-MODE-"))
|
|
| 516 | 516 | (new-mode (gensym "NEW-MODE-")))
|
| 517 | 517 | `(let ((,old-rounding-mode (ldb float-rounding-mode (floating-point-modes)))
|
| 518 | 518 | (,new-mode (cdr (assoc ,rounding-mode rounding-mode-alist))))
|