anchor.diff:    (with-file-lock ((make-pathname :directory (cache-loc url) :name "main"))
       (open (make-pathname :directory (cache-loc url) :name "page.html"))))
   
  +;;;FIXME: Need to clean up after crash that leaves main.lock in place. 
   (defun grab-text (url &key (update t))
     (when update (update-page url))
     (with-file-lock ((make-pathname :directory (cache-loc url) :name "main"))
  
positive.code:               (with-file-lock (lfile)
                  (with-open-file (s lfile)
                    (json:decode-json s)))))))
  
  (defun index-file-name ()
    (make-pathname :directory *cache-path* :name "urlindex.inf"))
  
negative.code:    #:initialize-indices
     #:update-page
     #:text-server
     #:grab-links
     #:grab-failed-message))
  
  (in-package :wf/text-extract)
  
  