[usocket-cvs] r571 - usocket/trunk/backend

[Chun Tian (binghe)]

Author: ctian
Date: Wed Dec  8 01:33:01 2010
New Revision: 571

Log:
LispWorks: UDP receive timeout parameter (patched by Kamil Shakirov)

Modified:
   usocket/trunk/backend/lispworks.lisp

Modified: usocket/trunk/backend/lispworks.lisp
==============================================================================
--- usocket/trunk/backend/lispworks.lisp	(original)
+++ usocket/trunk/backend/lispworks.lisp	Wed Dec  8 01:33:01 2010
@@ -442,11 +442,12 @@
                                                            :copy-foreign-object nil)))
               (values nil n 0 0)))))))
 
-(defmethod socket-receive ((socket datagram-usocket) buffer length &key)
+(defmethod socket-receive ((socket datagram-usocket) buffer length &key timeout)
   (multiple-value-bind (buffer size host port)
       (receive-message (socket socket)
                        (slot-value socket 'recv-buffer)
-                       buffer length)
+                       buffer length
+                       :read-timeout timeout)
     (values buffer size host port)))
 
 (defmethod get-local-name ((usocket usocket))