summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
3fe9cb0)
really really ensure that the second argument to nanosleep is an
integer
(multiple-value-bind (quot rem) (truncate (numerator seconds)
(denominator seconds))
(values quot
(multiple-value-bind (quot rem) (truncate (numerator seconds)
(denominator seconds))
(values quot
- (* rem (/ 1000000000 (denominator seconds))))))
+ (truncate (* rem (/ 1000000000 (denominator seconds)))))))
(t
(multiple-value-bind (sec frac)
(truncate seconds)
(t
(multiple-value-bind (sec frac)
(truncate seconds)