anchor.diff:            (t (dns-lookup-host-by-address address ipv6)))))
   
   (defun process-one-reply (reply query-type)
  -  (let (truename addresses aliases)
  +  (let ((truename (dns-record-name (aref (dns-message-question reply) 0)))
  +        addresses aliases)
       (loop :for rr :across (dns-message-answer reply) :do
          (switch ((dns-record-type rr) :test #'eq)
            (:cname (setf truename (dns-rr-data rr)))
  
positive.code:                      (dns-rr-data (aref (dns-message-answer reply) 0)))))
        (assert (eq :ptr (dns-record-type (aref (dns-message-answer reply) 0))))
        (values (list address)
                (list (cons hostname address))))))
  
  (defun lookup-host-by-address (address ipv6)
  
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
  