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

Commits:

1 changed file:

Changes:

  • tests/float.lisp
    ... ... @@ -231,7 +231,7 @@
    231 231
         (:tag :issues)
    
    232 232
       (lisp::with-float-traps-enabled (:underflow)
    
    233 233
         ;; The expected string comes from make-float-aux.
    
    234
    -    (let ((expected "Floating point underflow when reading ~S"))
    
    234
    +    (let ((expected "Floating point underflow when reading ~S: ~S"))
    
    235 235
           (flet ((test-reader-underflow (string)
    
    236 236
                    ;; Test that the we got a reader-error when a number
    
    237 237
                    ;; would underflow and that the message says we got an