anchor.diff:                (with-file-lock (lfile)
                   (with-open-file (s lfile)
                     (json:decode-json s)))))))
  +
  +(defun grab-failed-message (url)
  +  (unless (probe-file (failure-loc url))
  +    (error "No failure message found"))
  +  (read-file-into-string (failure-loc url)))
   
   (defun index-file-name ()
     (make-pathname :directory *cache-path* :name "urlindex.inf"))
  
positive.code:   (with-file-lock ((make-pathname :directory (cache-loc url) :name "main"))
      (open (make-pathname :directory (cache-loc url) :name "page.html"))))
  
  (defun grab-text (url &key (update t))
    (when update (update-page url))
    (with-file-lock ((make-pathname :directory (cache-loc url) :name "main"))
  
negative.code:    #:initialize-indices
     #:update-page
     #:text-server
     #:grab-links
     #:grab-failed-message))
  
  (in-package :wf/text-extract)
  
  