Implement set-timeouts for clasp

[rabbibotton]

https://github.com/edicl/hunchentoot/blob/master/set-timeouts.lisp

[hanshuebner]

Are you planning to come up with a PR?

[rabbibotton]

I am the wrong person to do it, but if no one, eventually I will try. clasp only compiled with my software the first time this last version so I know little about it.

[hanshuebner]

Let's see if someone speaks up.

[rabbibotton]

For myself or another:

The C code for the sockets is here https://github.com/clasp-developers/clasp/tree/main/src/sockets
The Lisp side is here https://github.com/clasp-developers/clasp/tree/main/src/lisp/modules/sockets

[rabbibotton]

in theory these are the changes, but needs someone to test (my project not working even with this, no data sent to browser, and no time to debug at moment)

-  #+:ecl
+  #+(or :ecl :clasp)
   (when read-timeout
     (setf (sb-bsd-sockets:sockopt-receive-timeout (usocket:socket usocket))
          read-timeout))
-  #+:ecl
+  #+(or :ecl :clasp)
   (when write-timeout
     (setf (sb-bsd-sockets:sockopt-send-timeout (usocket:socket usocket))
          write-timeout))
@@ -80,8 +80,6 @@ set."
   #+:abcl
   (when write-timeout
     (warn "Unimplemented."))
-  #+:clasp
-  (warn "set-timeouts unimplemented.")