anchor.diff:  (defun set-socket-option-broadcast (socket value)
     (ccl::int-setsockopt (ccl::socket-device socket)
                          #$SOL_SOCKET #$SO_BROADCAST value))
  +
  +(defun get-socket-option-tcp-nodelay (socket)
  +  (ccl::int-getsockopt (ccl::socket-device socket)
  +                       #$IPPROTO_TCP #$TCP_NODELAY))
  +
  +(defun set-socket-option-tcp-nodelay (socket value)
  +  (ccl::int-setsockopt (ccl::socket-device socket)
  +                       #$IPPROTO_TCP #$TCP_NODELAY value))
  
positive.code: 					  :remote-port port
  					  :local-host (when local-host (host-to-hostname local-host))
  					  :local-port local-port
  					  :format (to-format element-type)
  					  :deadline deadline
  					  :nodelay nodelay
  					  :connect-timeout timeout)))
  
negative.code:       wait-list)))
  
  ;;; Helper functions for option.lisp
  
  (defun get-socket-option-reuseaddr (socket)
    (ccl::int-getsockopt (ccl::socket-device socket)
                         #$SOL_SOCKET #$SO_REUSEADDR))
  