X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Funix.lisp;h=248f72e1c77cfa96b319266f07017bdfe60fe9df;hb=171fde84561e232b8af8c05b82dfe8a8f9e08340;hp=57f531cd9a95a9a4f724bb5f192e8e538198dbbf;hpb=567588a0316e6202e5158b8a9ff773b9e6d03762;p=sbcl.git

diff --git a/src/code/unix.lisp b/src/code/unix.lisp
index 57f531c..248f72e 100644
--- a/src/code/unix.lisp
+++ b/src/code/unix.lisp
@@ -976,6 +976,9 @@ corresponds to NAME, or NIL if there is none."
                            (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)))))