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 Make variable names consistent. - - - - -

1 changed file:

- src/code/float-trap.lisp

Changes:

===================================== src/code/float-trap.lisp ===================================== @@ -512,7 +512,7 @@

Only the rounding mode is restored on exit; other floating-point modes are not modified. " - (let ((old-rounding-mode (gensym "OLD-ROUNDING-MODE-")) + (let ((old-mode (gensym "OLD-MODE-")) (new-mode (gensym "NEW-MODE-"))) `(let ((,old-rounding-mode (ldb float-rounding-mode (floating-point-modes))) (,new-mode (cdr (assoc ,rounding-mode rounding-mode-alist))))

View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/6ba754346e8ddf8a24574968...