X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-posix%2Finterface.lisp;h=07ac6f5ade356af226ae7f57442761e05cbf18e3;hb=0e03a9ac950b78d776c4869c809e202d9e929f39;hp=517f71f373c27bd4d134a5bac97e82dd52fe7c45;hpb=7c705bd988cfec5de87572abba9da3c16601388d;p=sbcl.git

diff --git a/contrib/sb-posix/interface.lisp b/contrib/sb-posix/interface.lisp
index 517f71f..07ac6f5 100644
--- a/contrib/sb-posix/interface.lisp
+++ b/contrib/sb-posix/interface.lisp
@@ -76,7 +76,7 @@
 ;;; variable.
 (eval-when (:compile-toplevel :load-toplevel)
   (setf *c-functions-in-runtime*
-	'`(#+netbsd ,@("stat" "lstat" "fstat" "readdir" "opendir"))))
+        '`(#+netbsd ,@("stat" "lstat" "fstat" "readdir" "opendir"))))
 
 
 ;;; filesystem access
@@ -359,6 +359,11 @@
 (define-pw-call "getpwnam" login-name (function (* alien-passwd) c-string))
 (define-pw-call "getpwuid" uid (function (* alien-passwd) uid-t))
 
+#-win32
+(define-protocol-class timeval alien-timeval ()
+  ((sec :initarg :tv-sec :accessor timeval-sec)
+   (usec :initarg :tv-usec :accessor timeval-usec)))
+
 (define-protocol-class stat alien-stat ()
   ((mode :initarg :mode :accessor stat-mode)
    (ino :initarg :ino :accessor stat-ino)