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