[usocket-cvs] r284 - usocket/trunk

[ehuelsmann at common-lisp.net]

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