(rem-nsec (slot rem 'tv-nsec)))
(when (or (> secs rem-sec)
(and (= secs rem-sec) (>= nsecs rem-nsec)))
+ ;; Update for next round.
+ (setf secs rem-sec
+ nsecs rem-nsec)
t)))
do (setf (slot req 'tv-sec) (slot rem 'tv-sec)
(slot req 'tv-nsec) (slot rem 'tv-nsec)))))