anchor.diff:      (vector (values (coerce buff 'ub8-sarray)
                       start (- end start)))))
   
  -(defun %socket-send (socket buffer start end remote-address remote-port flags)
  +(defun %send-to (socket buffer start end remote-address remote-port flags)
     (when (typep socket 'passive-socket)
       (error "You cannot send data on a passive socket."))
     (when remote-address (setf remote-address (convert-or-lookup-inet-address remote-address)))
  
positive.code: (defmethod send-to ((socket active-socket) buffer &rest args
                      &key (start 0) end remote-address (remote-port 0) (ipv6 *ipv6*))
    (let ((*ipv6* ipv6))
      (%socket-send socket buffer start end remote-address remote-port
                    (compute-flags *sendmsg-flags* args))))
  
  (define-compiler-macro send-to (&whole form socket buffer &rest args
                                  &key (start 0) end remote-address (remote-port 0)
  
negative.code:         (incf-pointer buff-sap start-offset)
          (%recvfrom fd buff-sap bufflen flags ss size)))))
  
  (declaim (inline %receive-from-stream-socket))
  (defun %receive-from-stream-socket (socket buffer start end flags)
    (with-sockaddr-storage (ss)
      (let ((bytes-received (%socket-receive-bytes (fd-of socket) buffer
                                                   start end flags ss)))
        (values buffer bytes-received))))
  
  (declaim (inline %receive-from-datagram-socket))
  (defun %receive-from-datagram-socket (socket buffer start end flags)
    (with-sockaddr-storage (ss)
      (let ((bytes-received (%socket-receive-bytes (fd-of socket) buffer
                                                   start end flags ss)))
  