Author: ehuelsmann Date: Sun Aug 12 18:38:57 2007 New Revision: 284

Modified: usocket/trunk/usocket.lisp Log: Fix error in wait-for-input where no timeout is specified: don't do number (real) comparison with NIL.

Modified: usocket/trunk/usocket.lisp ============================================================================== --- usocket/trunk/usocket.lisp (original) +++ usocket/trunk/usocket.lisp Sun Aug 12 18:38:57 2007 @@ -203,10 +203,11 @@ (list socket-or-sockets)) :timeout timeout))) (values result - (let ((elapsed (/ (- (get-internal-real-time) start) - internal-time-units-per-second))) - (when (< elapsed timeout) - (- timeout elapsed)))))) + (when timeout + (let ((elapsed (/ (- (get-internal-real-time) start) + internal-time-units-per-second))) + (when (< elapsed timeout) + (- timeout elapsed)))))))

;; ;; IP(v4) utility functions