Raymond Toy pushed to branch issue-287-clean-up-make-float-aux at cmucl / cmucl
Commits: b28a0a06 by Raymond Toy at 2024-03-24T15:25:04-07:00 Address nits from review
Mostly undoing the whitespace changes due to tabs vs spaces.
- - - - -
1 changed file:
- src/code/reader.lisp
Changes:
===================================== src/code/reader.lisp ===================================== @@ -1870,18 +1870,18 @@ the end of the stream." ;; Otherwise the number might fit, so we carefully compute the result. (handler-case (with-float-traps-masked (:underflow) - (let* ((ratio (/ (* (expt 10 exponent) number) + (let* ((ratio (/ (* (expt 10 exponent) number) divisor)) (result (coerce ratio float-format))) - (when (and (zerop result) (not (zerop number))) + (when (and (zerop result) (not (zerop number))) ;; The number we've read is so small that it gets ;; converted to 0.0, but is not actually zero. Signal an ;; error. See CLHS 2.3.1.1. - (error "Underflow")) + (error _"Underflow")) result)) (error () - (%reader-error stream _"Number not representable as a ~S: ~S" - float-format (read-buffer-to-string))))) + (%reader-error stream _"Number not representable as a ~S: ~S" + float-format (read-buffer-to-string)))))
(defun make-ratio (stream)
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/b28a0a0600c79123f212e1f9...