(define-protocol-class timeval alien-timeval ()
((sec :initarg :tv-sec :accessor timeval-sec)
(usec :initarg :tv-usec :accessor timeval-usec)))
(define-protocol-class timeval alien-timeval ()
((sec :initarg :tv-sec :accessor timeval-sec)
(usec :initarg :tv-usec :accessor timeval-usec)))