Commit cfcb011e authored by Daniel Kochmański's avatar Daniel Kochmański
Browse files

generic-bench: return [nil nil] for sys/consed

parent b8dc0bb7
...@@ -181,7 +181,7 @@ ...@@ -181,7 +181,7 @@
;; return real user sys consed ;; return real user sys consed
(values (coerce (/ (- after-real before-real) internal-time-units-per-second) 'float) (values (coerce (/ (- after-real before-real) internal-time-units-per-second) 'float)
(coerce (/ (- after-user before-user) internal-time-units-per-second) 'float) (coerce (/ (- after-user before-user) internal-time-units-per-second) 'float)
0 0))) nil nil)))
(eval-when (:load-toplevel :execute) (eval-when (:load-toplevel :execute)
(unless (fboundp 'bench-time) (unless (fboundp 'bench-time)
......
Supports Markdown
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