Raymond Toy pushed to branch issue-298-with-float-rounding-mode at cmucl / cmucl
Commits:
-
0e716eab
by Raymond Toy at 2024-04-07T17:02:55-07:00
1 changed file:
Changes:
| ... | ... | @@ -514,7 +514,7 @@ |
| 514 | 514 | modes are not modified. "
|
| 515 | 515 | (let ((old-mode (gensym "OLD-MODE-"))
|
| 516 | 516 | (new-mode (gensym "NEW-MODE-")))
|
| 517 | - `(let ((,old-rounding-mode (ldb float-rounding-mode (floating-point-modes)))
|
|
| 517 | + `(let ((,old-mode (ldb float-rounding-mode (floating-point-modes)))
|
|
| 518 | 518 | (,new-mode (cdr (assoc ,rounding-mode rounding-mode-alist))))
|
| 519 | 519 | (unwind-protect
|
| 520 | 520 | (progn
|
| ... | ... | @@ -523,4 +523,4 @@ |
| 523 | 523 | ,@body)
|
| 524 | 524 | ;; Restore just the rounding mode to the original value.
|
| 525 | 525 | (setf (floating-point-modes)
|
| 526 | - (dpb ,old-rounding-mode float-rounding-mode (floating-point-modes))))))) |
|
| 526 | + (dpb ,old-mode float-rounding-mode (floating-point-modes))))))) |