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

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)