From 68f7dfa0a165c12200cba27368eb1b12db44be10 Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Thu, 10 Nov 2011 16:06:19 +0200 Subject: [PATCH] use RELATIVE-DECODED-TIMES in serve-event OAOO, yum. --- src/code/serve-event.lisp | 12 +++--------- 1 file changed, 3 insertions(+), 9 deletions(-) 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)) -- 1.7.10.4