Author: ehuelsmann Date: Sun Jul 27 16:22:48 2008 New Revision: 396 Modified: usocket/branches/0.4.x/backend/cmucl.lisp usocket/trunk/backend/cmucl.lisp Log: More CMUCL fixes. Modified: usocket/branches/0.4.x/backend/cmucl.lisp ============================================================================== --- usocket/branches/0.4.x/backend/cmucl.lisp (original) +++ usocket/branches/0.4.x/backend/cmucl.lisp Sun Jul 27 16:22:48 2008 @@ -174,7 +174,7 @@ (defun %remove-waiter (wait-list waiter) (setf (wait-list-%wait wait-list) - (remove (socket waiter) (wait-list-%wait waiter)))) + (remove (socket waiter) (wait-list-%wait wait-list)))) (defun wait-for-input-internal (wait-list &key timeout) (with-mapped-conditions () Modified: usocket/trunk/backend/cmucl.lisp ============================================================================== --- usocket/trunk/backend/cmucl.lisp (original) +++ usocket/trunk/backend/cmucl.lisp Sun Jul 27 16:22:48 2008 @@ -176,7 +176,7 @@ (defun %remove-waiter (wait-list waiter) (setf (wait-list-%wait wait-list) - (remove (socket waiter) (wait-list-%wait waiter)))) + (remove (socket waiter) (wait-list-%wait wait-list)))) (defun wait-for-input-internal (wait-list &key timeout) (with-mapped-conditions ()