Commit a7524901 authored by Raymond Toy's avatar Raymond Toy
Browse files

Merge branch 'issue-20-support-sbcl' into 'master'

Fix #20: Support sbcl better

Closes #20

See merge request !18
parents 13e091f9 579b30fa
Pipeline #2403 passed with stage
in 2 minutes and 27 seconds
......@@ -95,12 +95,15 @@
(let* ((*random-state*
#+cmucl
(kernel::make-random-object :state (kernel:init-random-state))
#-cmucl
#+sbcl
(sb-kernel::%make-random-state (sb-kernel::init-random-state 3141592653))
#-(or cmucl sbcl)
(make-random-state nil)))
(format t "Test random-state ~A~%" *random-state*)
(let* ((rt-package (find-package "RT"))
(pass (funcall (intern "DO-TESTS" rt-package)))
(unexpected-failures (symbol-value (find-symbol "*UNEXPECTED-FAILURES*" rt-package)))
(unexpected-successes (symbol-value (find-symbol "*UNEXPECTED-SUCCESSES*" rt-package))))
(or (and (null unexpected-failures) (null unexpected-successes))
(or (not pass)
(and (null unexpected-failures) (null unexpected-successes))
(error "TEST-OP failed for OCT-TESTS")))))
......@@ -25,7 +25,7 @@
(in-package #:oct)
(named-readtables:in-readtable oct-readtable))
(named-readtables:in-readtable oct-readtable)
(defmethod add1 ((a qd-complex))
(make-instance 'qd-complex
......
......@@ -24,7 +24,7 @@
(in-package #:oct)
(named-readtables:in-readtable oct-readtable))
(named-readtables:in-readtable oct-readtable)
(declaim (inline descending-transform ascending-transform))
......
......@@ -25,7 +25,7 @@
(in-package #:oct)
(named-readtables:in-readtable oct-readtable))
(named-readtables:in-readtable oct-readtable)
(defun qd-scale-exponent (original-x)
(let* ((x original-x))
......
......@@ -24,7 +24,7 @@
(in-package #:oct)
(named-readtables:in-readtable oct-readtable))
(named-readtables:in-readtable oct-readtable)
;; For log-gamma we use the asymptotic formula
;;
......
......@@ -24,7 +24,7 @@
(in-package #:oct)
(named-readtables:in-readtable oct-readtable))
(named-readtables:in-readtable oct-readtable)
;; Theta functions
;;
......
......@@ -25,7 +25,7 @@
(in-package #:oct)
(named-readtables:in-readtable oct:oct-readtable))
(named-readtables:in-readtable oct:oct-readtable)
;; For the tests, we need to turn off underflow for clisp.
#+clisp
......@@ -79,7 +79,10 @@
bessel-j.pos-order.d.1
bessel-j-complex-arg.d.4
bessel-j-1/2-complex.d.1
bessel-j-1/2-complex.q.1)
bessel-j-1/2-complex.q.1
oct.elliptic-pi.n0.q
gamma.3.q
)
#-(or acl sbcl)
'(oct.atanh-branch-neg.1
oct.atanh-branch-pos.1
......@@ -1324,7 +1327,7 @@
for true = (sqrt (/ pi y (sinh (* pi y))))
for result = (check-accuracy 44 g true)
when result
append (list (list (list k y) result)))
append (list (list (list k (complex 0 y)) result)))
nil)
(rt:deftest gamma.2.q
......@@ -1334,7 +1337,7 @@
for true = (sqrt (/ +pi+ y (sinh (* +pi+ y))))
for result = (check-accuracy 196 g true)
when result
append (list (list (list k y) result)))
append (list (list (list k (complex 0 y)) result)))
nil)
(rt:deftest gamma.3.d
......@@ -1344,7 +1347,7 @@
for true = (sqrt (/ pi (cosh (* pi y))))
for result = (check-accuracy 44 g true)
when result
append (list (list (list k y) result)))
append (list (list (list k (complex 1/2 y)) result)))
nil)
(rt:deftest gamma.3.q
......@@ -1354,7 +1357,7 @@
for true = (sqrt (/ +pi+ (cosh (* +pi+ y))))
for result = (check-accuracy 196 g true)
when result
append (list (list (list k y) result)))
append (list (list (list k (complex 1/2 y)) result)))
nil)
;; gamma_incomplete(2,z) = integrate(t*exp(-t), t, z, inf)
......
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