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

[ehuelsmann at common-lisp.net]

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