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

27 Jul
2008
27 Jul
'08
10:09 a.m.
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))))))))))
6075
Age (days ago)
6075
Last active (days ago)
0 comments
1 participants
participants (1)
-
ehuelsmann@common-lisp.net