Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
oct
oct
Commits
830e395d
Commit
830e395d
authored
Dec 24, 2020
by
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
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
oct.asd
View file @
830e395d
...
...
@@ -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"
)))))
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment