anchor.diff:                 (return-from lookup-host-u8-vector-4
                    (make-host hostname
                               (list (make-address :ipv6 ipv6addr))))
  -               (deal-with-resolv-error retval host nil)))))))))
  +               (manage-resolv-error retval host nil)))))))))
   
   (defun lookup-host-u16-vector-8 (host ipv6)
     (setf host (coerce host '(simple-array ub16 (8))))
  
positive.code:                (return-from lookup-host-u16-vector-8
                   (make-host hostname
                              (list (make-address :ipv6 (copy-seq host)))))
                 (deal-with-resolv-error retval host nil))))))))
  
  (defun make-address-from-addrinfo (ptr)
    (declare (type (alien (* (struct et::addrinfo)))
  
negative.code:             (et::freeaddrinfo addrinfo))
            (return-from lookup-service-name
              (make-service port port-number true-protocol)))
          (manage-resolv-error retval nil port))))
  
  (defun lookup-service (port &key (protocol :tcp) (name-required nil))
    (case protocol
  