From 72124389fbc53ba77e79ca7c1ab93dad61680a5c Mon Sep 17 00:00:00 2001 From: John Pallister Date: Fri, 12 Aug 2016 15:02:33 +0100 Subject: [PATCH 1/3] Added timeouts for LispWorks. --- set-timeouts.lisp | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/set-timeouts.lisp b/set-timeouts.lisp index bfe094e..251fc3b 100644 --- a/set-timeouts.lisp +++ b/set-timeouts.lisp @@ -67,5 +67,11 @@ set." #+:cmu (setf (lisp::fd-stream-timeout (usocket:socket-stream usocket)) (coerce read-timeout 'integer)) - #-(or :clisp :ecl :openmcl :sbcl :cmu) + #+lispworks + (when read-timeout + (setf (stream:stream-read-timeout (usocket:socket-stream usocket)) read-timeout)) + #+lispworks + (when write-timeout + (setf (stream:stream-write-timeout (usocket:socket-stream usocket)) write-timeout)) + #-(or :clisp :ecl :openmcl :sbcl :cmu :lispworks) (not-implemented 'set-timeouts)) From 0e34b970377b3096b6c564f8c97769107ff466ae Mon Sep 17 00:00:00 2001 From: John Pallister Date: Fri, 12 Aug 2016 15:09:52 +0100 Subject: [PATCH 2/3] Revert "Added timeouts for LispWorks." This reverts commit 72124389fbc53ba77e79ca7c1ab93dad61680a5c. --- set-timeouts.lisp | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) diff --git a/set-timeouts.lisp b/set-timeouts.lisp index 251fc3b..bfe094e 100644 --- a/set-timeouts.lisp +++ b/set-timeouts.lisp @@ -67,11 +67,5 @@ set." #+:cmu (setf (lisp::fd-stream-timeout (usocket:socket-stream usocket)) (coerce read-timeout 'integer)) - #+lispworks - (when read-timeout - (setf (stream:stream-read-timeout (usocket:socket-stream usocket)) read-timeout)) - #+lispworks - (when write-timeout - (setf (stream:stream-write-timeout (usocket:socket-stream usocket)) write-timeout)) - #-(or :clisp :ecl :openmcl :sbcl :cmu :lispworks) + #-(or :clisp :ecl :openmcl :sbcl :cmu) (not-implemented 'set-timeouts)) From a9055355d7ea0fee2c69e9ab363b9fb0b6586e62 Mon Sep 17 00:00:00 2001 From: John Pallister Date: Thu, 18 Aug 2016 13:07:08 +0100 Subject: [PATCH 3/3] Now using usockets LW functions for LW timeouts. --- set-timeouts.lisp | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/set-timeouts.lisp b/set-timeouts.lisp index bfe094e..a6922d6 100644 --- a/set-timeouts.lisp +++ b/set-timeouts.lisp @@ -67,5 +67,11 @@ set." #+:cmu (setf (lisp::fd-stream-timeout (usocket:socket-stream usocket)) (coerce read-timeout 'integer)) - #-(or :clisp :ecl :openmcl :sbcl :cmu) + #+lispworks + (when read-timeout + (usocket::set-socket-receive-timeout (usocket:socket usocket) read-timeout)) + #+lispworks + (when write-timeout + (usocket::set-socket-send-timeout (usocket:socket usocket) write-timeout)) + #-(or :clisp :ecl :openmcl :sbcl :cmu :lispworks) (not-implemented 'set-timeouts))