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:

       ;; 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))

 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