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: 
  (defun links-loc (url)
    (concatenate 'string (cache-loc url) "links"))
  
  (defun update-page (url &key force)
    (unless (and (is-fresh url) (not force))
  
negative.code:       (error "Couldn't find text extractor script."))
      (let ((process (external-program:start *text-extractor-script*
                                             (list (cache-loc url))
                                             :input :stream
                                             :error (messages-loc url))))
        (write-line url (external-program:process-input-stream process))
        (close (external-program:process-input-stream process))
        index)))
  