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...