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