Commit 136ab5f2 authored by Daniel Kochmański's avatar Daniel Kochmański

*monitor-*-overhead*: truncate to integral number

parent fa5845a2
......@@ -922,8 +922,8 @@ of an empty function many times."
(multiple-value-bind (calls nested-calls time cons)
(monitor-info-values 'stub-function)
(declare (ignore calls nested-calls))
(setq *monitor-time-overhead* (/ time fiter)
*monitor-cons-overhead* (/ cons fiter))))
(setq *monitor-time-overhead* (truncate (/ time fiter))
*monitor-cons-overhead* (truncate (/ cons fiter)))))
(unmonitor stub-function))
(set-monitor-overhead)
......
Markdown is supported
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