[usocket-cvs] r414 - usocket/trunk/backend

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Thu Aug  7 14:50:26 2008
New Revision: 414

Modified:
   usocket/trunk/backend/openmcl.lisp
Log:
Fix CCL backend.

Modified: usocket/trunk/backend/openmcl.lisp
==============================================================================
--- usocket/trunk/backend/openmcl.lisp	(original)
+++ usocket/trunk/backend/openmcl.lisp	Thu Aug  7 14:50:26 2008
@@ -164,10 +164,9 @@
 (defun wait-for-input-internal (wait-list &key timeout)
   (with-mapped-conditions ()
     (let* ((ticks-timeout (truncate (* (or timeout 1)
-                                       ccl::*ticks-per-second*)))
-           (active-internal-sockets
-            (input-available-p (wait-list-waiters wait-list)
-                               (when timeout ticks-timeout))))
+                                       ccl::*ticks-per-second*))))
+      (input-available-p (wait-list-waiters wait-list)
+                               (when timeout ticks-timeout))
       wait-list)))