Hi all!
sb-bsd-sockets:socket-make-stream can get an :timeout keyword. And it is
works!
I think it must be used in sbcl backend in socket-connect function here is a
patch
*** usocket-0.4.1.orig/backend/sbcl.lisp 2010-05-06 14:26:15.000000000 +0400
--- usocket-0.4.1/backend/sbcl.lisp 2010-06-24 19:13:37.000000000 +0400
***************
*** 208,214 ****
(sockopt-tcp-nodelay-p
(fboundp 'sb-bsd-sockets::sockopt-tcp-nodelay)))
(when deadline (unsupported 'deadline 'socket-connect))
- (when timeout (unsupported 'timeout 'socket-connect))
(when (and nodelay-specified
;; 20080802: ECL added this function to its sockets
;; package today. There's no guarantee the functions
--- 208,213 ----
***************
*** 224,229 ****
--- 223,229 ----
(sb-bsd-sockets:socket-make-stream socket
:input t
:output t
+ :timeout timeout
:buffering :full
:element-type
element-type))
;;###FIXME: The above line probably needs an
:external-format
Thanks a lot!
Pavel G. Koukoushkin
Moscow, Russia