20 Jul
2008
20 Jul
'08
7:21 p.m.
Author: ehuelsmann Date: Sun Jul 20 15:21:29 2008 New Revision: 374 Modified: usocket/branches/new-wfi/backend/sbcl.lisp Log: Remove obsolete comment. Modified: usocket/branches/new-wfi/backend/sbcl.lisp ============================================================================== --- usocket/branches/new-wfi/backend/sbcl.lisp (original) +++ usocket/branches/new-wfi/backend/sbcl.lisp Sun Jul 20 15:21:29 2008 @@ -275,7 +275,6 @@ (push (socket waiter) (wait-list-%wait wait-list))) (defun %remove-waiter (wait-list waiter) - ;;;### not removing from the waiters list?! (setf (wait-list-%wait wait-list) (remove (socket waiter) (wait-list-%wait wait-list))))