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
1 changed file:
Changes:
| ... | ... | @@ -1868,7 +1868,7 @@ the end of the stream." |
| 1868 | 1868 | float-format (read-buffer-to-string)))))))
|
| 1869 | 1869 | |
| 1870 | 1870 | ;; Otherwise the number might fit, so we carefully compute the result.
|
| 1871 | - (handler-case
|
|
| 1871 | + (handler-case
|
|
| 1872 | 1872 | (with-float-traps-masked (:underflow)
|
| 1873 | 1873 | (let* ((ratio (/ (* (expt 10 exponent) number)
|
| 1874 | 1874 | divisor))
|