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)))