Raymond Toy pushed to branch master at cmucl / cmucl

Commits:

1 changed file:

Changes:

  • tests/issues.lisp
    ... ... @@ -544,3 +544,15 @@
    544 544
       ;; the correct value.
    
    545 545
       (assert-false
    
    546 546
        (funcall (compile nil '(lambda () (array-displacement "aaaaaaaa"))))))
    
    547
    +
    
    548
    +(define-test issue.101
    
    549
    +    (:tag :issues)
    
    550
    +  ;; Verifies that we don't get unexpected overflow.  The actual value
    
    551
    +  ;; is not really important.  The important part is no overflow is
    
    552
    +  ;; signaled.
    
    553
    +  ;;
    
    554
    +  ;; See https://gitlab.common-lisp.net/cmucl/cmucl/-/issues/101 for
    
    555
    +  ;; more details.
    
    556
    +  (assert-equalp
    
    557
    +   3.0380154777955097d205
    
    558
    +   (expt 1.7976931348623157d308 0.6666)))