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)