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
