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
67b2b6b6
Commit
67b2b6b6
authored
May 20, 2016
by
Daniel Kochmański
Browse files
generic-bench: work on floats
parent
47ae7908
Changes
1
Hide whitespace changes
Inline
Side-by-side
support.lisp
View file @
67b2b6b6
...
...
@@ -179,8 +179,8 @@
(
setq
after-user
(
get-internal-run-time
))
(
setq
after-real
(
get-internal-real-time
))
;; return real user sys consed
(
values
(
/
(
-
after-real
before-real
)
internal-time-units-per-second
)
(
/
(
-
after-user
before-user
)
internal-time-units-per-second
)
(
values
(
coerce
(
/
(
-
after-real
before-real
)
internal-time-units-per-second
)
'float
)
(
coerce
(
/
(
-
after-user
before-user
)
internal-time-units-per-second
)
'float
)
0
0
)))
(
eval-when
(
:load-toplevel
:execute
)
...
...
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