anchor.diff:      (setf buffer (make-array size :element-type 'ub8)
             start 0 end size))
     (etypecase socket
  -    (stream-socket (%socket-receive-stream-socket
  -                    socket buffer start end flags))
  -    (datagram-socket (%socket-receive-datagram-socket
  -                      socket buffer start end flags))))
  -
  -(defmethod receive-from ((socket active-socket)
  -                         &rest args &key buffer size (start 0) end)
  -  (%socket-receive socket buffer start end size
  -                   (compute-flags *recvfrom-flags* args)))
  +    (stream-socket (%receive-from-stream-socket socket buffer start end flags))
  +    (datagram-socket (%receive-from-datagram-socket socket buffer start end flags))))
  +
  +(defmethod receive-from ((socket active-socket) &rest args
  +                         &key buffer size (start 0) end)
  +  (%receive-from socket buffer start end size
  +                 (compute-flags *recvfrom-flags* args)))
   
   (define-compiler-macro receive-from (&whole form socket &rest args
                                        &key buffer size (start 0) end)
     (let ((flags (compute-flags *recvfrom-flags* args)))
  -    (cond (flags `(%socket-receive ,socket ,buffer ,start ,end ,size ,flags))
  +    (cond (flags `(%receive-from ,socket ,buffer ,start ,end ,size ,flags))
             (t form))))
   
   ;;;; Datagram Sockets
  
positive.code:           (sockaddr-storage->sockaddr ss)
          (values buffer bytes-received remote-address remote-port)))))
  
  (defun %socket-receive (socket buffer start end size flags)
    (when (typep socket 'passive-socket)
      (error "You cannot receive data from a passive socket."))
    (unless buffer
  
negative.code:     (vector (values (coerce buff 'ub8-sarray)
                      start (- end start)))))
  
  (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)))
  