anchor.diff:  		(ccl::ignoring-eintr
   		  (ccl::check-socket-error (#_send fd bufptr size 0))))))))))
   
  +#+ccl-1.11-sockets
  +(defmethod socket-send ((usocket datagram-usocket) buffer size &key host port (offset 0))
  +  (let* ((ccl-socket (socket usocket))
  +	 (socket-keys (ccl::socket-keys ccl-socket)))
  +    (with-mapped-conditions (usocket)
  +      (if (and host port)
  +	  (openmcl-socket:send-to ccl-socket buffer size
  +				  :remote-host (host-to-hostname host)
  +				  :remote-port port
  +				  :offset offset)
  +	  (openmcl-socket:send-to ccl-socket buffer size
  +				  :remote-address (getf socket-keys :remote-address)
  +				  :offset offset)))))
  +
   (defmethod socket-receive ((usocket datagram-usocket) buffer length &key)
     (with-mapped-conditions (usocket)
       (openmcl-socket:receive-from (socket usocket) length :buffer buffer)))
  
positive.code:   (with-mapped-conditions (usocket)
      (close (socket usocket))))
  
  (defmethod socket-send ((usocket datagram-usocket) buffer size &key host port (offset 0))
    (with-mapped-conditions (usocket)
      (if (and host port)
  
negative.code:                      (openmcl-socket:resolve-address :host (host-to-hostname host)
  						     :port port
  						     :socket-type protocol)))
             (mcl-sock (apply #'openmcl-socket:make-socket
  			    `(:type ,protocol
  			      ,@(when remote
  				  `(:address-family ,(openmcl-socket:socket-address-family remote)))
  			      :remote-address ,remote
  			      ,@(when (and local-host local-port)
  				  `(:local-host ,(host-to-hostname local-host)
  				    :local-port ,local-port))
  			      :format ,(to-format element-type protocol)
  			      :external-format ccl:*default-external-format*
  			      :deadline ,deadline
  			      :nodelay ,nodelay
  			      :connect-timeout ,timeout
  			      :input-timeout ,timeout))))
        (ecase protocol
          (:stream
           (make-stream-socket :stream mcl-sock :socket mcl-sock))
  