projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.29.13: relax CAST-EXTERNALLY-CHECKABLE-P a bit
[sbcl.git]
/
tests
/
arith.pure.lisp
diff --git
a/tests/arith.pure.lisp
b/tests/arith.pure.lisp
index
915c545
..
f98ba64
100644
(file)
--- a/
tests/arith.pure.lisp
+++ b/
tests/arith.pure.lisp
@@
-21,9
+21,9
@@
`(progn
(assert (= (,op 4 2) ,res1))
(assert (= (,op 2 4) ,res2))
`(progn
(assert (= (,op 4 2) ,res1))
(assert (= (,op 2 4) ,res2))
- (assert (= (funcall (compile nil (lambda (x y) (,op x y))) 4 2)
+ (assert (= (funcall (compile nil '(lambda (x y) (,op x y))) 4 2)
,res1))
,res1))
- (assert (= (funcall (compile nil (lambda (x y) (,op x y))) 2 4)
+ (assert (= (funcall (compile nil '(lambda (x y) (,op x y))) 2 4)
,res2)))))
(test + 6 6)
(test - 2 -2)
,res2)))))
(test + 6 6)
(test - 2 -2)
@@
-290,3
+290,8
@@
(let ((x (random (ash 1 i))))
(test x (test-logcount x))
(test (- x) (test-logcount (- x))))))))
(let ((x (random (ash 1 i))))
(test x (test-logcount x))
(test (- x) (test-logcount (- x))))))))
+
+;; 1.0 had a broken ATANH on win32
+(with-test (:name :atanh)
+ (assert (= (atanh 0.9d0) 1.4722194895832204d0)))
+