Raymond Toy pushed to branch issue-275b-signal-float-underflow at cmucl / cmucl

Commits: 2eda1257 by Raymond Toy at 2024-04-07T10:50:22-07:00 Change underflow message to be a bit clearer

Update the pot file due to the change in the message string.

- - - - -

2 changed files:

- src/code/reader.lisp - src/i18n/locale/cmucl.pot

Changes:

===================================== src/code/reader.lisp ===================================== @@ -1883,8 +1883,8 @@ the end of the stream." ;; 0. (let ((zero (coerce 0 float-format))) (restart-case - (%reader-error stream _"Floating point underflow when reading ~S" - (read-buffer-to-string)) + (%reader-error stream _"Floating point underflow when reading ~S: ~S" + float-format (read-buffer-to-string)) (continue () :report (lambda (stream) (format stream "Return ~A" zero))

===================================== src/i18n/locale/cmucl.pot ===================================== @@ -8736,7 +8736,7 @@ msgid "Underflow" msgstr ""

#: src/code/reader.lisp -msgid "Floating point underflow when reading ~S" +msgid "Floating point underflow when reading ~S: ~S" msgstr ""

#: src/code/reader.lisp

View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/2eda1257be4c15c51ce8bc96...