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