anchor.diff:    (unless (probe-file (failure-loc url))
       (error "No failure message found"))
     (read-file-into-string (failure-loc url)))
  +
  +(defun grab-messages (url)
  +  (if (probe-file (messages-loc url))
  +      (read-file-into-string (messages-loc url))
  +      ""))
   
   (defun index-file-name ()
     (make-pathname :directory *cache-path* :name "urlindex.inf"))
  
positive.code:    #:update-page
     #:text-server
     #:grab-links
     #:grab-failed-message))
  
  (in-package :wf/text-extract)
  
  
negative.code: 
  (defun links-loc (url)
    (concatenate 'string (cache-loc url) "links"))
  
  (defun messages-loc (url)
    (concatenate 'string (cache-loc url) "messages"))
  
  (defun update-page (url &key force)
    (unless (and (is-fresh url) (not force))
  