anchor.diff:  ;;;-------------------------------------------------------------------------
   ;;; 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)
  
positive.code: ;;; ACCEPT
  ;;;-------------------------------------------------------------------------
  
  (defmethod accept-connection ((socket active-socket) &key)
    (error "You can't accept connections on active sockets."))
  
  (defmethod accept-connection ((socket passive-socket) &key external-format
                                input-buffer-size output-buffer-size (wait t))
    (check-type wait timeout-designator)
    (flet ((make-client-socket (fd)
  
negative.code:            (replace buffer tmpbuff :start1 start :end1 end :start2 0 :end2 nbytes))))
        (values nbytes))))
  
  (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
  