anchor.diff:             (replace buffer tmpbuff :start1 start :end1 end :start2 0 :end2 nbytes))))
         (values nbytes))))
   
  -(defmethod receive-from :around ((socket active-socket) &rest args
  +(defmethod receive-from :around ((socket socket) &rest args
                                    &key buffer size (start 0) end flags &allow-other-keys)
     (let ((flags-val (or flags (compute-flags *recvfrom-flags* args))))
       (cond
  
positive.code: ;;;-------------------------------------------------------------------------
  ;;; DISCONNECT
  ;;;-------------------------------------------------------------------------
  
  (defmethod disconnect :before ((socket socket))
    (unless (typep socket 'datagram-socket)
      (error "You can only disconnect active datagram sockets.")))
  
  (defmethod disconnect ((socket datagram-socket))
    (with-foreign-object (sin 'sockaddr-in)
  
negative.code: ;;; ACCEPT
  ;;;-------------------------------------------------------------------------
  
  (defmethod accept-connection ((socket socket) &key external-format
                                input-buffer-size output-buffer-size (wait t))
    (check-type wait timeout-designator)
    (flet ((make-client-socket (fd)
  