- (if to-sec
- (multiple-value-bind (okay start-sec start-usec)
- (sb!unix:unix-gettimeofday)
- (declare (ignore okay))
- (let ((usec (+ to-usec start-usec))
- (sec (+ to-sec start-sec)))
- (declare (type (unsigned-byte 31) usec sec))
- (if (>= usec 1000000)
- (values (1+ sec) (- usec 1000000))
- (values sec usec))))
- (values 0 0))
- (declare (type (unsigned-byte 31) stop-sec stop-usec))
- (with-fd-handler (fd direction (lambda (fd)
- (declare (ignore fd))
- (setf usable t)))
- (loop
- (sub-serve-event to-sec to-usec)
+ (if to-sec
+ (multiple-value-bind (okay start-sec start-usec)
+ (sb!unix:unix-gettimeofday)
+ (declare (ignore okay))
+ (let ((usec (+ to-usec start-usec))
+ (sec (+ to-sec start-sec)))
+ (declare (type (unsigned-byte 31) usec sec))
+ (if (>= usec 1000000)
+ (values (1+ sec) (- usec 1000000))
+ (values sec usec))))
+ (values 0 0))
+ (declare (type (unsigned-byte 31) stop-sec stop-usec))
+ (with-fd-handler (fd direction (lambda (fd)
+ (declare (ignore fd))
+ (setf usable t)))
+ (loop
+ (sub-serve-event to-sec to-usec)