[usocket-cvs] r374 - usocket/branches/new-wfi/backend

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