[usocket-cvs] r396 - in usocket: branches/0.4.x/backend trunk/backend

[ehuelsmann at common-lisp.net]

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