anchor.diff:    (when local-filename
       (bind-address socket (ensure-address local-filename :family :local)))
     (when remote-filename
  -    (connect socket (ensure-address remote-filename :family :local))))
  +    (connect socket (ensure-address remote-filename :family :local)))
  +  (values socket))
   
   (define-socket-creator (:local :stream :active)
       (family ef &key local-filename remote-filename
  
positive.code:   (when local-filename
      (bind-address socket (ensure-address local-filename :family :local)
                    :reuse-address reuse-address)
      (listen-on socket :backlog backlog)))
  
  (define-socket-creator (:local :stream :passive)
      (family ef &key local-filename (reuse-address t)
  
negative.code:   (when local-filename
      (bind-address socket (ensure-address local-filename :family :local)))
    (when remote-filename
      (connect socket (ensure-address remote-filename :family :local)))
    (values socket))
  
  (define-socket-creator (:local :datagram :active)
      (family ef &key local-filename remote-filename)
  