1.0.3.15: timeval tv-usec should be suseconds-t not time-t

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

diff --git a/src/code/unix.lisp b/src/code/unix.lisp
index 94bf062..cd9a6fc 100644 (file)
--- a/src/code/unix.lisp
+++ b/src/code/unix.lisp
@@ -185,10 +185,12 @@ SYSCALL-FORM. Repeat evaluation of SYSCALL-FORM if it is interrupted."
 
 ;; A time value that is accurate to the nearest
 ;; 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.
 (define-alien-type nil
   (struct timeval
           (tv-sec time-t)               ; seconds
-          (tv-usec time-t)))            ; and microseconds
+          (tv-usec suseconds-t)))       ; and microseconds
 \f
 ;;;; resourcebits.h