Commit 830e395d authored by Raymond Toy's avatar Raymond Toy
Browse files

Fix #20: Support sbcl better

- Use a fixed known `*random-state*` for sbcl.
- Fix warning about unused variable.
parent 13e091f9
Pipeline #2401 passed with stage
in 2 minutes and 23 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")))))
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