anchor.diff:  
   #-no-internet-available
   (deftest lookup-host.1
  -    (let ((host (lookup-host "a.root-servers.net" :ipv6 nil)))
  -      (values (address-equal-p (car (host-addresses host)) #(198 41 0 4))
  -              (host-truename host)))
  +    (multiple-value-bind (addresses truename)
  +        (lookup-host "a.root-servers.net" :ipv6 nil)
  +      (values (address-equal-p (car addresses) #(198 41 0 4))
  +              truename))
     t "a.root-servers.net")
   
   #-no-internet-available
   (deftest lookup-host.2
  -    (host-truename (lookup-host #(198 41 0 4)))
  +    (nth-value 1 (lookup-host #(198 41 0 4)))
     "a.root-servers.net")
   
   ;;; These days lots of people seem to be using DNS servers that don't
  
positive.code: ;;; looks up a reserved service port
  (deftest lookup-service.3
      ;; TODO: check for a more specific error.
      (with-expected-conditions (resolver-error)
        (lookup-service 1024))
    t)
  
  
negative.code:       (lookup-host "foo.tninkpad.telent.net."))
    t)
  
  (deftest lookup-host.4
      (address-equal-p (car (lookup-host #(127 0 0 1) :ipv6 nil))
                       #(127 0 0 1))
    t)
  
  (deftest lookup-host.5
      (with-expected-conditions (parse-error)
        (lookup-host #(127 0 0)))
    t)
  
  (deftest lookup-host.6
      (with-expected-conditions (resolver-no-name-error)
        (lookup-host #(127 0 0 1) :ipv6 :ipv6))
    t)
  
  