anchor.diff:                       (dns-rr-data (aref (dns-message-answer reply) 0)))))
         (assert (eq :ptr (dns-record-type (aref (dns-message-answer reply) 0))))
         (values (list address)
  +              hostname
                 (list (cons hostname address))))))
   
   (defun lookup-host-by-address (address ipv6)
  
positive.code:                        (push (cons name address) aliases)))
           (t (warn "Invalid RR type: ~S" (dns-record-type rr)))))
      (values (nreverse addresses)
              (remove-trailing-dot
               (or truename
                   (dns-record-name (aref (dns-message-question reply) 0))))
              (nreverse aliases))))
  
  (defun dns-lookup-host-in-one-domain (host query-type)
  
negative.code:   "Looks up a host by name or address.  IPV6 determines the IPv6
  behaviour, defaults to *IPV6*."
    (check-type ipv6 (member nil :ipv6 t) "valid IPv6 configuration")
    (let ((address (if (stringp host)
                       (ignore-some-conditions (parse-error)
                         (ensure-address host))
                       (ensure-address host))))
      (update-monitor *resolv.conf-monitor*)
      (update-monitor *hosts-monitor*)
      (cond (address
  