From 30ee5dbf0dd5192d4d1dc98b04a148c51f5de3ee Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Fri, 19 Feb 2010 20:30:32 +0100 Subject: [PATCH] SERVE-EVENT now allows time resolution of less than one second. --- contrib/serve-event/serve-event.lisp | 7 ++++--- src/CHANGELOG | 2 ++ 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/contrib/serve-event/serve-event.lisp b/contrib/serve-event/serve-event.lisp index 194f411ce..895738772 100644 --- a/contrib/serve-event/serve-event.lisp +++ b/contrib/serve-event/serve-event.lisp @@ -167,10 +167,11 @@ :one-liner nil :side-effects t) (c-inline (rfd wfd (1+ maxfd) seconds) - (:object :object :int :int) (values :int :int) + (:object :object :int :double) (values :int :int) "{ struct timeval tv; - tv.tv_sec = #3; - tv.tv_usec = 0; + double seconds = #3; + tv.tv_sec = seconds; + tv.tv_usec = (seconds * 1e6); @(return 0) = select(#2, (fd_set*)#0->foreign.data, (fd_set*)#1->foreign.data, NULL, &tv); diff --git a/src/CHANGELOG b/src/CHANGELOG index 8283d8268..a1e915c16 100755 --- a/src/CHANGELOG +++ b/src/CHANGELOG @@ -110,6 +110,8 @@ and important fixes to let ECL work better with Slime. - Improved readability of compiler messages. + - SERVE-EVENT now allows time resolution of less than one second. + ;;; Local Variables: *** ;;; mode:text *** ;;; fill-column:79 ***