[usocket-cvs] r355 - usocket/branches/0.3.x/backend

[ehuelsmann at common-lisp.net]

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