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
059339d5
Commit
059339d5
authored
Jun 07, 2016
by
Daniel Kochmański
Browse files
support: minor cleanup
parent
92237336
Changes
1
Hide whitespace changes
Inline
Side-by-side
support.lisp
View file @
059339d5
...
...
@@ -96,9 +96,6 @@
(
progn
,@
body
)
(
bench-report-footer
))))
(
setf
(
fdefinition
'filter
)
#'
remove-if-not
)
(
defun
bench-run-1
(
benchmark
&key
force
)
(
multiple-value-bind
(
real
user
sys
consed
)
(
if
(
and
(
not
force
)
...
...
@@ -116,18 +113,6 @@
(
push
(
list
(
slot-value
benchmark
'short
)
real
user
sys
consed
)
*benchmark-results*
)))
#+
(
or
)
(
defun
bench-run-1
(
&key
names
groups
&aux
(
names
(
ensure-list
names
))
(
groups
(
ensure-list
groups
)))
(
let
((
*benchmarks*
(
union
(
filter
(
lambda
(
%
)
(
member
%
names
))
*benchmarks*
:key
#'
benchmark-name
)
(
filter
(
lambda
(
%
)
(
member
%
groups
))
*benchmarks*
:key
#'
benchmark-group
))))
(
when
*benchmarks*
(
print
*benchmarks*
)
(
bench-run
))))
(
defun
bench-run
()
(
with-open-file
(
f
(
benchmark-report-file
)
:direction
:output
...
...
@@ -191,9 +176,6 @@
(
eval-when
(
:load-toplevel
:execute
)
(
unless
(
fboundp
'bench-time
)
;; GCL as of 20040628 does not implement (setf fdefinition)
#-
gcl
(
setf
(
fdefinition
'bench-time
)
#'
generic-bench-time
)
#+
gcl
(
defun
bench-time
(
fun
times
name
)
(
generic-bench-time
fun
times
name
))))
(
setf
(
fdefinition
'bench-time
)
#'
generic-bench-time
)))
;; EOF
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