Raymond Toy pushed to branch master at cmucl / cmucl
Commits:
- 
74b0de87
by Raymond Toy at 2021-02-03T17:04:16-08:00
- 
23d1a1d1
by Raymond Toy at 2021-02-04T01:28:29+00:00
1 changed file:
Changes:
| ... | ... | @@ -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))) |