Hi List,
As datagram socket-receive generic function allows to pass extra key
parameters, would it be possible to add extra timeout parameter for
LispWorks backend? The attached patch adds this feature.
--ska
>From af2fec27a8d9f0a68770b38879c0677ae811e16b Mon Sep 17 00:00:00 2001
From: Kamil Shakirov <kamil...@gmail.com>
Date: Wed, 8 Dec 2010 10:47:17 +0700
Subject: [PATCH] Receive timeout.
---
backend/lispworks.lisp | 5 +++--
1 files changed, 3 insertions(+), 2 deletions(-)
diff --git a/backend/lispworks.lisp b/backend/lispworks.lisp
index 06d6634..abbb5c1 100644
--- a/backend/lispworks.lisp
+++ b/backend/lispworks.lisp
@@ -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))
--
1.7.0.4
_______________________________________________
usocket-devel mailing list
usocket-devel@common-lisp.net
http://common-lisp.net/cgi-bin/mailman/listinfo/usocket-devel
