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) _______________________________________________ usocket-devel mailing list usocket-devel@common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/usocket-devel
