anchor.diff:  NAME ::= string hostname.
   Returns a list of 4-octet vectors containing the internet address."
     (etypecase host
  -    (null (list #(127 0 0 1))) ;; nil means localhost
  +    (null
  +     (list #(127 0 0 1))) ;; nil means localhost
       (string
        (cond
          ((string-equal host "localhost")
  
positive.code: 	(let ((dq (fsocket::dotted-quad-to-inaddr host nil)))
  	  (if dq
  	      (list dq)
  	      ;; not a dotted quad, must be a hostname 
  	      (mapcar #'rr-rdata (query (question host))))))))
      (vector (list host))
      (fsocket:sockaddr-in
       (list 
        (fsocket:sockaddr-in-addr host)))))
  
  (defun get-host-by-addr (inaddr)
    "Resolve an internet address into a list of hostnames.
  
negative.code: 		   (setf done t)))
  
  	     (unless got-reply (error 'dns-error :stat "Timeout"))
  
  	     (values ranswers rauths radds rqs raddress)))
        (fsocket:close-socket fd)
        (fsocket:close-poll pc))))
  