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:         (%connect (fd-of socket) sun (actual-size-of-sockaddr-un sun))))
    (values socket))
  
  (defmethod connect ((socket passive-socket) address &key)
    (declare (ignore address))
    (error "You cannot connect passive sockets."))
  
  (defmethod socket-connected-p ((socket socket))
    (if (fd-of socket)
        (with-sockaddr-storage-and-socklen (ss size)
  
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)
  