mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-09 06:30:32 -07:00
Code Issues Projects Releases Packages Wiki Activity

SERVE-EVENT now allows time resolution of less than one second.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-02-19 20:30:32 +01:00
parent ed770c2bfb
commit 30ee5dbf0d
2 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
contrib/serve-event/serve-event.lisp
View file

@ -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);

2
src/CHANGELOG
View file

@ -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 ***