Author: ehuelsmann Date: Sat Jun 28 03:57:38 2008 New Revision: 355

Modified: usocket/branches/0.3.x/backend/openmcl.lisp Log: Followup to fix of OpenMCL backend.

Patch by: Chun Tian (binghe.lisp@gmail.com)

Modified: usocket/branches/0.3.x/backend/openmcl.lisp ============================================================================== --- usocket/branches/0.3.x/backend/openmcl.lisp (original) +++ usocket/branches/0.3.x/backend/openmcl.lisp Sat Jun 28 03:57:38 2008 @@ -37,8 +37,8 @@ (ccl::fd-zero infds) (ccl::fd-zero errfds) (dolist (sock sockets) - (ccl::fd-set (openmcl-socket:socket-os-fd sock infds)) - (ccl::fd-set (openmcl-socket:socket-os-fd sock errfds))) + (ccl::fd-set (openmcl-socket:socket-os-fd sock) infds) + (ccl::fd-set (openmcl-socket:socket-os-fd sock) errfds)) (let* ((res (#_select (1+ (apply #'max infds)) infds (ccl::%null-ptr) errfds