Skip to content
Snippets Groups Projects
Commit 23d1a1d1 authored by Raymond Toy's avatar Raymond Toy
Browse files

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

Add test for overflow in expt that shouldn't happen

See merge request cmucl/cmucl!68
parents e349bf1d 74b0de87
No related branches found
No related tags found
No related merge requests found
......@@ -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)))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment