[usocket-cvs] r523 - usocket/trunk/backend - usocket-cvs@common-lisp.net - mailman3.common-lisp.net

28 Jun 2010

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))

    