[usocket-cvs] r372 - usocket/branches/new-wfi

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Sun Jul 20 13:52:23 2008
New Revision: 372

Modified:
   usocket/branches/new-wfi/usocket.lisp
Log:
Fix 'old-style' calling convention.

Modified: usocket/branches/new-wfi/usocket.lisp
==============================================================================
--- usocket/branches/new-wfi/usocket.lisp	(original)
+++ usocket/branches/new-wfi/usocket.lisp	Sun Jul 20 13:52:23 2008
@@ -266,8 +266,7 @@
 none."
   (unless (wait-list-p socket-or-sockets)
     (let ((wl (make-wait-list (if (listp socket-or-sockets)
-                                  socket-or-sockets (list socket-or-sockets))
-                              nil)))
+                                  socket-or-sockets (list socket-or-sockets)))))
       (multiple-value-bind
             (socks to)
           (wait-for-input wl :timeout timeout :ready-only ready-only)