Author: ctian Date: Mon Nov 17 12:10:30 2008 New Revision: 478 Log: [bugfix] fix compilation on old ECL which has no sb-bsd-sockets:sockopt-tcp-nodelay defined. Modified: usocket/branches/0.4.x/backend/sbcl.lisp usocket/branches/experimental-udp/backend/sbcl.lisp usocket/trunk/backend/sbcl.lisp Modified: usocket/branches/0.4.x/backend/sbcl.lisp ============================================================================== --- usocket/branches/0.4.x/backend/sbcl.lisp (original) +++ usocket/branches/0.4.x/backend/sbcl.lisp Mon Nov 17 12:10:30 2008 @@ -229,8 +229,10 @@ ;;###FIXME: The above line probably needs an :external-format (usocket (make-stream-socket :stream stream :socket socket)) (ip (host-to-vector-quad host))) + ;; binghe: use SOCKOPT-TCP-NODELAY as internal symbol + ;; to pass compilation on ECL without it. (when (and nodelay-specified sockopt-tcp-nodelay-p) - (setf (sb-bsd-sockets:sockopt-tcp-nodelay socket) nodelay)) + (setf (sb-bsd-sockets::sockopt-tcp-nodelay socket) nodelay)) (when (or local-host local-port) (sb-bsd-sockets:socket-bind socket (host-to-vector-quad Modified: usocket/branches/experimental-udp/backend/sbcl.lisp ============================================================================== --- usocket/branches/experimental-udp/backend/sbcl.lisp (original) +++ usocket/branches/experimental-udp/backend/sbcl.lisp Mon Nov 17 12:10:30 2008 @@ -231,8 +231,10 @@ ;;###FIXME: The above line probably needs an :external-format (usocket (make-stream-socket :stream stream :socket socket)) (ip (host-to-vector-quad host))) + ;; binghe: use SOCKOPT-TCP-NODELAY as internal symbol + ;; to pass compilation on ECL without it. (when (and nodelay-specified sockopt-tcp-nodelay-p) - (setf (sb-bsd-sockets:sockopt-tcp-nodelay socket) nodelay)) + (setf (sb-bsd-sockets::sockopt-tcp-nodelay socket) nodelay)) (when (or local-host local-port) (sb-bsd-sockets:socket-bind socket (host-to-vector-quad Modified: usocket/trunk/backend/sbcl.lisp ============================================================================== --- usocket/trunk/backend/sbcl.lisp (original) +++ usocket/trunk/backend/sbcl.lisp Mon Nov 17 12:10:30 2008 @@ -229,8 +229,10 @@ ;;###FIXME: The above line probably needs an :external-format (usocket (make-stream-socket :stream stream :socket socket)) (ip (host-to-vector-quad host))) - (when (and nodelay-specified sockopt-tcp-nodelay-p) - (setf (sb-bsd-sockets:sockopt-tcp-nodelay socket) nodelay)) + ;; binghe: use SOCKOPT-TCP-NODELAY as internal symbol + ;; to pass compilation on ECL without it. + (when (and nodelay-specified sockopt-tcp-nodelay-p) + (setf (sb-bsd-sockets::sockopt-tcp-nodelay socket) nodelay)) (when (or local-host local-port) (sb-bsd-sockets:socket-bind socket (host-to-vector-quad