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