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