anchor.diff:          (%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)
  
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
  