Commit 23d1a1d1 authored by Raymond Toy's avatar Raymond Toy

Merge branch 'issue-101-add-test' into 'master'

Add test for overflow in expt that shouldn't happen

See merge request !68
parents e349bf1d 74b0de87
......@@ -544,3 +544,15 @@
;; the correct value.
(assert-false
(funcall (compile nil '(lambda () (array-displacement "aaaaaaaa"))))))
(define-test issue.101
(:tag :issues)
;; Verifies that we don't get unexpected overflow. The actual value
;; is not really important. The important part is no overflow is
;; signaled.
;;
;; See https://gitlab.common-lisp.net/cmucl/cmucl/-/issues/101 for
;; more details.
(assert-equalp
3.0380154777955097d205
(expt 1.7976931348623157d308 0.6666)))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment