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