[usocket-cvs] r394 - in usocket: branches/0.4.x trunk

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Sun Jul 27 14:10:20 2008
New Revision: 394

Modified:
   usocket/branches/0.4.x/usocket.lisp
   usocket/trunk/usocket.lisp
Log:
Fix call to %remove-waiter with too few arguments.

Found by: Chun Tian



Modified: usocket/branches/0.4.x/usocket.lisp
==============================================================================
--- usocket/branches/0.4.x/usocket.lisp	(original)
+++ usocket/branches/0.4.x/usocket.lisp	Sun Jul 27 14:10:20 2008
@@ -253,7 +253,7 @@
 
 (defun remove-all-waiters (wait-list)
   (dolist (waiter (wait-list-waiters wait-list))
-    (%remove-waiter waiter))
+    (%remove-waiter wait-list waiter))
   (setf (wait-list-waiters wait-list) nil)
   (clrhash (wait-list-map wait-list)))
 

Modified: usocket/trunk/usocket.lisp
==============================================================================
--- usocket/trunk/usocket.lisp	(original)
+++ usocket/trunk/usocket.lisp	Sun Jul 27 14:10:20 2008
@@ -259,7 +259,7 @@
 
 (defun remove-all-waiters (wait-list)
   (dolist (waiter (wait-list-waiters wait-list))
-    (%remove-waiter waiter))
+    (%remove-waiter wait-list waiter))
   (setf (wait-list-waiters wait-list) nil)
   (clrhash (wait-list-map wait-list)))