Author: ehuelsmann Date: Sat Aug 2 16:06:09 2008 New Revision: 413
Modified: usocket/trunk/backend/sbcl.lisp Log: Document that we can't call SOCKOPT-TCP-NODELAY on all ECL versions, so we need a check.
Modified: usocket/trunk/backend/sbcl.lisp ============================================================================== --- usocket/trunk/backend/sbcl.lisp (original) +++ usocket/trunk/backend/sbcl.lisp Sat Aug 2 16:06:09 2008 @@ -206,6 +206,10 @@ (when deadline (unsupported 'deadline 'socket-connect)) (when timeout (unsupported 'timeout 'socket-connect)) (when (and nodelay-specified + ;; 20080802: ECL added this function to its sockets + ;; package today. There's no guarantee the functions + ;; we need are available, but we can make sure not to + ;; call them if they aren't (not (fboundp 'sb-bsd-sockets::sockopt-tcp-nodelay))) (unsupported 'nodelay 'socket-connect))