From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Thu, 10 Nov 2011 14:06:19 +0000 (+0200)
Subject: use RELATIVE-DECODED-TIMES in serve-event
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=68f7dfa0a165c12200cba27368eb1b12db44be10;p=sbcl.git

use RELATIVE-DECODED-TIMES in serve-event

 OAOO, yum.
---

diff --git a/src/code/serve-event.lisp b/src/code/serve-event.lisp
index 2faa401..ca055ed 100644
--- a/src/code/serve-event.lisp
+++ b/src/code/serve-event.lisp
@@ -175,15 +175,9 @@ waiting."
        (flet ((maybe-update-timeout ()
                 ;; If we return early, recompute the timeouts, possibly
                 ;; signaling the deadline or returning with NIL to caller.
-                (multiple-value-bind (sec usec)
-                    (decode-internal-time (get-internal-real-time))
-                  (setf to-sec (- stop-sec sec))
-                  (cond ((> usec stop-usec)
-                         (decf to-sec)
-                         (setf to-usec (- (+ stop-usec 1000000) usec)))
-                        (t
-                         (setf to-usec (- stop-usec usec)))))
-                (when (or (minusp to-sec) (and (zerop to-sec) (not (plusp to-usec))))
+                (setf (values to-sec to-usec)
+                      (relative-decoded-times stop-sec stop-usec))
+                (when (and (zerop to-sec) (not (plusp to-usec)))
                   (cond (signalp
                          (signal-deadline)
                          (go :restart))