[usocket-cvs] r504 - usocket/trunk/backend

[Chun Tian (binghe)]

Author: ctian
Date: Thu Dec 31 06:36:56 2009
New Revision: 504

Log:
Fix build on ECL/msvc, found by Seth Burleigh. However, due to no "select()" on win32, WAIT-FOT-INPUT not working on ECL/win32, need more work here.

Modified:
   usocket/trunk/backend/sbcl.lisp

Modified: usocket/trunk/backend/sbcl.lisp
==============================================================================
--- usocket/trunk/backend/sbcl.lisp	(original)
+++ usocket/trunk/backend/sbcl.lisp	Thu Dec 31 06:36:56 2009
@@ -50,7 +50,8 @@
    "#include <winsock2.h>")
 
   (ffi:clines
-   "#include <sys/time.h>"
+   #+:msvc "#include <time.h>"
+   #-:msvc "#include <sys/time.h>"
    "#include <ecl/ecl-inl.h>")
 
   #+:prefixed-api