X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Funix.lisp;h=f8ef69d8c987b5a79915009527cb41709defa455;hb=c0edd3a5a45ff0159ea308aa8a68c6ac0df0e0de;hp=fb70a51c6a2cb657024b6ea67752d956979c6505;hpb=9a82b26397de09d67372f34158090c2284fd1411;p=sbcl.git diff --git a/src/code/unix.lisp b/src/code/unix.lisp index fb70a51..f8ef69d 100644 --- a/src/code/unix.lisp +++ b/src/code/unix.lisp @@ -202,7 +202,7 @@ corresponds to NAME, or NIL if there is none." ;; 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. -#!-(or win32 openbsd) +#!-(or win32 openbsd netbsd) (define-alien-type nil (struct timeval (tv-sec time-t) ; seconds @@ -211,7 +211,7 @@ corresponds to NAME, or NIL if there is none." ;; The above definition doesn't work on 64-bit OpenBSD platforms. ;; Both tv_sec and tv_usec are declared as long instead of time_t, and ;; time_t is a typedef for int. -#!+openbsd +#!+(or openbsd netbsd) (define-alien-type nil (struct timeval (tv-sec long) ; seconds @@ -777,7 +777,7 @@ corresponds to NAME, or NIL if there is none." ;; the POSIX.4 structure for a time value. This is like a "struct ;; timeval" but has nanoseconds instead of microseconds. -#!-openbsd +#!-(or openbsd netbsd) (define-alien-type nil (struct timespec (tv-sec long) ; seconds @@ -786,7 +786,7 @@ corresponds to NAME, or NIL if there is none." ;; Just as with struct timeval, 64-bit OpenBSD has problems with the ;; above definition. tv_sec is declared as time_t instead of long, ;; and time_t is a typedef for int. -#!+openbsd +#!+(or openbsd netbsd) (define-alien-type nil (struct timespec (tv-sec time-t) ; seconds @@ -926,7 +926,7 @@ corresponds to NAME, or NIL if there is none." #!-sb-fluid (declaim (inline get-time-of-day)) (defun get-time-of-day () - "Return the number of seconds and microseconds since the beginning og + "Return the number of seconds and microseconds since the beginning of the UNIX epoch (January 1st 1970.)" #!+darwin (with-alien ((tv (struct timeval)))