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