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
ansi-test
cl-bench
Commits
c6ccec00
Commit
c6ccec00
authored
May 22, 2016
by
Daniel Kochmański
Browse files
output: report to the output/report.html file
parent
d888544d
Pipeline
#122
skipped
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
report/html-report.lisp
View file @
c6ccec00
...
...
@@ -22,7 +22,8 @@
(
let*
((
data
(
read-benchmarks
))
(
implementations
(
mapcar
#'
car
data
))
(
benchmarks
(
reverse
(
mapcar
#'
first
(
cdr
(
first
data
))))))
(
with-open-file
(
s
#P"/tmp/bench.html"
:direction
:output
:if-exists
:supersede
)
(
with-open-file
(
s
(
merge-pathnames
"report.html"
*output-dir*
)
:direction
:output
:if-exists
:supersede
)
(
cl-who:with-html-output
(
s
nil
:prologue
t
)
(
cl-who:htm
(
:p
(
cl-who:fmt
"~a ~a ~a"
...
...
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