[usocket-cvs] r523 - usocket/trunk/backend

[Chun Tian (binghe)]

Author: ctian
Date: Mon Jun 28 11:58:13 2010
New Revision: 523

Log:
SBCL: Add TIMEOUT support for sb-bsd-sockets:socket-make-stream, thanks to Pavel G. Koukoushkin

Modified:
   usocket/trunk/backend/sbcl.lisp

Modified: usocket/trunk/backend/sbcl.lisp
==============================================================================
--- usocket/trunk/backend/sbcl.lisp	(original)
+++ usocket/trunk/backend/sbcl.lisp	Mon Jun 28 11:58:13 2010
@@ -210,6 +210,7 @@
 		       (sockopt-tcp-nodelay-p
 			(fboundp 'sb-bsd-sockets::sockopt-tcp-nodelay)))
   (when deadline (unsupported 'deadline 'socket-connect))
+  #+ecl
   (when timeout (unsupported 'timeout 'socket-connect))
   (when (and nodelay-specified
              ;; 20080802: ECL added this function to its sockets
@@ -232,6 +233,8 @@
 						      :input t
 						      :output t
 						      :buffering :full
+						      #+sbcl #+sbcl
+						      :timeout timeout
 						      :element-type element-type))
 		  ;;###FIXME: The above line probably needs an :external-format
 		  (usocket (make-stream-socket :stream stream :socket socket))