anchor.diff:                                             :local-host (when local-host (host-to-hostname local-host))
                                              :local-port local-port
   					   :input-timeout timeout
  -                                           :format :binary))
  +					   :format (to-format element-type protocol)
  +					   :external-format ccl:*default-external-format*))
                 (usocket (make-datagram-socket mcl-sock)))
   	 (when (and host port)
   	   (ccl::inet-connect (ccl::socket-device mcl-sock)
  
positive.code: 	   (error nameserver-error :host-or-ip nil)
  	   (raise-error-from-id condition-id socket condition))))))
  
  (defun to-format (element-type)
    (if (subtypep element-type 'character)
        :text
      :binary))
  
  (defun socket-connect (host port &key (protocol :stream) (element-type 'character)
  		       timeout deadline nodelay
                         local-host local-port)
    (when (eq nodelay :if-supported)
  
negative.code: (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))
  