Raymond Toy pushed to branch issue-293-restart-on-reader-fp-overflow at cmucl / cmucl

Commits:

2 changed files:

Changes:

  • src/code/reader.lisp
    ... ... @@ -1857,7 +1857,7 @@ the end of the stream."
    1857 1857
                     ext:most-positive-double-double-float)))))
    
    1858 1858
     
    
    1859 1859
       (restart-case
    
    1860
    -      (%reader-error stream _"~S overflow reading ~S"
    
    1860
    +      (%reader-error stream _"Floating-point overflow reading ~S: ~S"
    
    1861 1861
                          float-format (read-buffer-to-string))
    
    1862 1862
         (infinity ()
    
    1863 1863
           :report (lambda (stream)
    

  • src/i18n/locale/cmucl.pot
    ... ... @@ -8728,7 +8728,7 @@ msgid "Internal error in floating point reader."
    8728 8728
     msgstr ""
    
    8729 8729
     
    
    8730 8730
     #: src/code/reader.lisp
    
    8731
    -msgid "~S overflow reading ~S"
    
    8731
    +msgid "Floating-point overflow reading ~S: ~S"
    
    8732 8732
     msgstr ""
    
    8733 8733
     
    
    8734 8734
     #: src/code/reader.lisp