1.0.3.23: fix sb-posix timeval struct

[sbcl.git] / contrib / sb-posix / constants.lisp

diff --git a/contrib/sb-posix/constants.lisp b/contrib/sb-posix/constants.lisp
index bae76f4..a8ac3b0 100644 (file)
--- a/contrib/sb-posix/constants.lisp
+++ b/contrib/sb-posix/constants.lisp
@@ -391,6 +391,12 @@
               (time-t sec "time_t" "tv_sec")
               (suseconds-t usec "suseconds_t" "tv_usec")))
 
+ #+win32
+ (:structure alien-timeval
+             ("struct timeval"
+              (time-t sec "time_t" "tv_sec")
+              (long usec "long" "tv_usec")))
+
  (:integer veof "VEOF" nil t)
  (:integer veol "VEOL" nil t)
  (:integer verase "VERASE" nil t)