anchor.diff:        (let ((post (cl:read in)))
   	  ;; Add an :md5 property (taken from the filename,
   	  ;; e.g. "a4cadb7008415fe24a6b0585523900dd.sexp") just to keep track of
  -	  ;; it.  I don't know if it's possible for the MD5 to differ from the
  -	  ;; :id in the post.
  +	  ;; it.
   	(setf post (list* :md5 (pathname-name file) (cdr post)))
   	post))))
   
  
positive.code:       ;; in a database, say, the cached version could be retrieved from there
        ;; instead of from the Montezuma index.
        (montezuma:add-field doc (montezuma:make-field "description" description :index :tokenized :stored T))
        ;; To avoid the problem of, e.g, a phrase query like "OS X
        ;; sucks" not matching HTML like "OS X <b>sucks</b>", we index a
        ;; text-only version of the post.  We don't need to store a copy
        ;; of this unless we want to try the experimental similar-posts
        ;; function.
        (montezuma:add-field doc (montezuma:make-field "text" (strip-html description) :index :tokenized :stored T))
        ;; Finally, add the document to the index.
        (montezuma:add-document-to-index index doc))))
    
  
negative.code: 		 ;; Close tag
  		 (setf in-tag-p NIL))))))))
  
  
  (defun date-string (universal-time)
    "Turns a universal time into a string like \"2006-06-06\"."
    (multiple-value-bind (second minute hour date month year)
  