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... -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/6ba754346e8ddf8a24574968... You're receiving this email because of your account on gitlab.common-lisp.net.