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