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 Fix typos caused by renaming

We renamed `old-rounding-mode` to `old-mode`, but forgot to update all uses.

- - - - -

1 changed file:

- src/code/float-trap.lisp

Changes:

===================================== src/code/float-trap.lisp ===================================== @@ -514,7 +514,7 @@ modes are not modified. " (let ((old-mode (gensym "OLD-MODE-")) (new-mode (gensym "NEW-MODE-"))) - `(let ((,old-rounding-mode (ldb float-rounding-mode (floating-point-modes))) + `(let ((,old-mode (ldb float-rounding-mode (floating-point-modes))) (,new-mode (cdr (assoc ,rounding-mode rounding-mode-alist)))) (unwind-protect (progn @@ -523,4 +523,4 @@ ,@body) ;; Restore just the rounding mode to the original value. (setf (floating-point-modes) - (dpb ,old-rounding-mode float-rounding-mode (floating-point-modes))))))) + (dpb ,old-mode float-rounding-mode (floating-point-modes)))))))

View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/0e716eabb1708f9f8e51289e...