anchor.diff:                 (return-from lookup-host-u16-vector-8
                    (make-host hostname
                               (list (make-address :ipv6 (copy-seq host)))))
  -               (deal-with-resolv-error retval host nil))))))))
  +               (manage-resolv-error retval host nil))))))))
   
   (defun make-address-from-addrinfo (ptr)
     (declare (type (alien (* (struct et::addrinfo)))
  
positive.code:             (et::freeaddrinfo addrinfo))
            (return-from lookup-service-name
              (make-service port port-number true-protocol)))
          (deal-with-resolv-error retval nil port))))
  
  (defun lookup-service (port &key (protocol :tcp) (name-required nil))
    (case protocol
  
negative.code: ;; Error management
  ;;
  
  (defun manage-resolv-error (retval host port)
    (let ((data (or host port)))
      (case retval
        (#.et::eai-fail                   ; non-recoverable error
  