anchor.diff:  	   (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)
  +(defun to-format (element-type protocol)
  +  (cond ((null element-type)
  +	 (ecase protocol ; default value of different protocol
  +	   (:stream :text)
  +	   (:datagram :binary)))
  +	((subtypep element-type 'character)
  +	 :text)
  +	(t :binary)))
  +
  +(defun socket-connect (host port &key (protocol :stream) element-type
   		       timeout deadline nodelay
                          local-host local-port)
     (when (eq nodelay :if-supported)
  
positive.code: (defun set-socket-option-broadcast (socket value)
    (ccl::int-setsockopt (ccl::socket-device socket)
                         #$SOL_SOCKET #$SO_BROADCAST value))
  
negative.code:                                            :local-host (when local-host (host-to-hostname local-host))
                                             :local-port local-port
  					   :input-timeout timeout
  					   :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)
  