anchor.diff:                 (return-from lookup-host-u8-vector-4
                    (make-host hostname
                               (list (make-address :ipv4 (copy-seq host)))))
  -               (deal-with-resolv-error retval host nil))))))
  +               (manage-resolv-error retval host nil))))))
   
       ((:ipv6 t)
        (with-alien ((sin6 (struct et::sockaddr-in6)))
  
positive.code:                (return-from lookup-host-u8-vector-4
                   (make-host hostname
                              (list (make-address :ipv6 ipv6addr))))
                 (deal-with-resolv-error retval host nil)))))))))
  
  (defun lookup-host-u16-vector-8 (host ipv6)
    (setf host (coerce host '(simple-array ub16 (8))))
  
negative.code: ;; Error management
  ;;
  
  (defun manage-resolv-error (retval host port)
    (let ((data (or host port)))
      (case retval
        (#.et::eai-fail                   ; non-recoverable error
  