1.0.3.21: suseconds_t -> long on win32

[sbcl.git] / src / code / unix.lisp

diff --git a/src/code/unix.lisp b/src/code/unix.lisp
index cd9a6fc..be0e228 100644 (file)
--- a/src/code/unix.lisp
+++ b/src/code/unix.lisp
@@ -187,10 +187,17 @@ SYSCALL-FORM. Repeat evaluation of SYSCALL-FORM if it is interrupted."
 ;; microsecond but also has a range of years.
 ;; CLH: Note that tv-usec used to be a time-t, but that this seems
 ;; problematic on Darwin x86-64 (and wrong). Trying suseconds-t.
+#!-win32
+(define-alien-type nil
+    (struct timeval
+            (tv-sec time-t)             ; seconds
+            (tv-usec suseconds-t))) ; and microseconds
+
+#!+win32
 (define-alien-type nil
-  (struct timeval
-          (tv-sec time-t)               ; seconds
-          (tv-usec suseconds-t)))       ; and microseconds
+    (struct timeval
+            (tv-sec time-t)             ; seconds
+            (tv-usec long)))          ; and microseconds
 \f
 ;;;; resourcebits.h