From b03f4e32cc2da708dcbdea102b00077f7a41dd05 Mon Sep 17 00:00:00 2001 From: Christian Schafmeister Date: Sat, 19 May 2018 19:51:58 -0400 Subject: [PATCH 1/2] added support for clasp --- set-timeouts.lisp | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/set-timeouts.lisp b/set-timeouts.lisp index bfe094e..56a438a 100644 --- a/set-timeouts.lisp +++ b/set-timeouts.lisp @@ -52,6 +52,12 @@ set." (when write-timeout (setf (sb-bsd-sockets:sockopt-send-timeout (usocket:socket usocket)) write-timeout)) #+:ecl + (when read-timeout + (setf (sb-bsd-sockets:sockopt-receive-timeout (usocket:socket usocket)) read-timeout)) + #+:clasp + (when write-timeout + (setf (sb-bsd-sockets:sockopt-send-timeout (usocket:socket usocket)) write-timeout)) + #+:clasp (when read-timeout (setf (sb-bsd-sockets:sockopt-receive-timeout (usocket:socket usocket)) read-timeout)) #+:openmcl From 04ce52a95ecbb4fabf7e85edc6d04ac781c530ec Mon Sep 17 00:00:00 2001 From: Christian Schafmeister Date: Sat, 19 May 2018 19:55:18 -0400 Subject: [PATCH 2/2] Disable error for :clasp --- set-timeouts.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/set-timeouts.lisp b/set-timeouts.lisp index 56a438a..4ca9920 100644 --- a/set-timeouts.lisp +++ b/set-timeouts.lisp @@ -73,5 +73,5 @@ set." #+:cmu (setf (lisp::fd-stream-timeout (usocket:socket-stream usocket)) (coerce read-timeout 'integer)) - #-(or :clisp :ecl :openmcl :sbcl :cmu) + #-(or :clisp :ecl :clasp :openmcl :sbcl :cmu) (not-implemented 'set-timeouts))