[usocket-devel] Re: bugs in trunk: condition.lisp, usocket.lisp

[Chun Tian (binghe)]

Hi, again

Another is in usocket.lisp, Clozure CL found it:

Index: usocket.lisp
===================================================================
--- usocket.lisp	(revision 392)
+++ usocket.lisp	(working copy)
@@ -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)))

The %remove-waiter should have two arguments but you have only one.

Regards,

Chun Tian (binghe)