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 &#39;sb-bsd-sockets::sockopt-tcp-nodelay)))</div>
<div>    (when deadline (unsupported &#39;deadline &#39;socket-connect))</div><div>-   (when timeout (unsupported &#39;timeout &#39;socket-connect))</div><div>    (when (and nodelay-specified</div><div>               ;; 20080802: ECL added this function to its sockets</div>
<div>               ;; package today. There&#39;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>