[usocket-cvs] r422 - usocket/trunk/backend

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Fri Aug  8 17:02:48 2008
New Revision: 422

Modified:
   usocket/trunk/backend/sbcl.lisp
Log:
Fix the fixed fix.

Modified: usocket/trunk/backend/sbcl.lisp
==============================================================================
--- usocket/trunk/backend/sbcl.lisp	(original)
+++ usocket/trunk/backend/sbcl.lisp	Fri Aug  8 17:02:48 2008
@@ -343,9 +343,11 @@
 		   (error (map-errno-error err)))
 		 (when (< 0 count)
 		   ;; process the result...
-                   (dolist (x (wait-list-%wait sockets))
+                   (dolist (x (wait-list-waiters sockets))
                      (when (sb-unix:fd-isset
-                            (sb-bsd-sockets:socket-file-descriptor x) rfds)
+                            (sb-bsd-sockets:socket-file-descriptor
+                             (socket x))
+                            rfds)
                        (setf (state x) :READ))))))))))
 
   #+win32