Raymond Toy pushed to branch issue-287-clean-up-make-float-aux at cmucl / cmucl Commits: 4a61aa5f by Carl Shapiro at 2024-03-24T21:57:28+00:00 Apply 1 suggestion(s) to 1 file(s) - - - - - 1 changed file: - src/code/reader.lisp Changes: ===================================== src/code/reader.lisp ===================================== @@ -1868,7 +1868,7 @@ the end of the stream." float-format (read-buffer-to-string))))))) ;; Otherwise the number might fit, so we carefully compute the result. - (handler-case + (handler-case (with-float-traps-masked (:underflow) (let* ((ratio (/ (* (expt 10 exponent) number) divisor)) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/4a61aa5f06e409c041754f39... -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/4a61aa5f06e409c041754f39... You're receiving this email because of your account on gitlab.common-lisp.net.