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

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Sun Jul 27 06:09:20 2008
New Revision: 390

Modified:
   usocket/trunk/backend/scl.lisp
Log:
Followup commit for SCL protocol compliance.

Modified: usocket/trunk/backend/scl.lisp
==============================================================================
--- usocket/trunk/backend/scl.lisp	(original)
+++ usocket/trunk/backend/scl.lisp	Sun Jul 27 06:09:20 2008
@@ -184,5 +184,5 @@
                   ((endp sockets))
                 (let ((flags (sys:sap-ref-16 fds-sap (+ base 6))))
                   (unless (zerop (logand flags unix::pollin))
-                    (setf (state socket) :READ))))))))))
+                    (setf (state (first sockets)) :READ))))))))))