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

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