[usocket-cvs] r418 - usocket/branches/0.4.x/backend

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Thu Aug  7 16:32:59 2008
New Revision: 418

Modified:
   usocket/branches/0.4.x/backend/openmcl.lisp
Log:
Merge c414 from trunk (fix for CCL/OpenMCL backend).

Modified: usocket/branches/0.4.x/backend/openmcl.lisp
==============================================================================
--- usocket/branches/0.4.x/backend/openmcl.lisp	(original)
+++ usocket/branches/0.4.x/backend/openmcl.lisp	Thu Aug  7 16:32:59 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)))