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: ;;;
  ;;; Set these appropriately if you want to point the echo tests
  ;;; somewhere else.
  (defparameter *echo-address* #(127 0 0 1))
  (defparameter *echo-port* 7)
  
  ;;; Returns T if one of the expected conditions occured, otherwise returns
  
negative.code:     ;; kernel: we set a size of x and then getsockopt() returns 2x.
      ;; This is why we compare with >= instead of =
      (handler-case
          (with-http-stream (s "www.google.com" 80 "HEAD/")
            (setf (socket-option s :receive-buffer) 1975)
            (let ((data (make-string 200)))
              (setf data (subseq data 0 (read-buf-nonblock data s)))
  