(multiple-value-bind (quot rem) (truncate (numerator seconds)
(denominator seconds))
(values quot
- (truncate (* rem (/ 1000000000 (denominator seconds)))))))
+ (* rem (truncate 1000000000 (denominator seconds))))))
(t
(multiple-value-bind (sec frac)
(truncate seconds)