anchor.diff:    "Deletes the specified paste from the index."
     (unless *index*
       (load-index))
  -  (montezuma:delete *index* (montezuma:make-term "id" (format nil "~A" number)))
  +  (montezuma:delete *index* (montezuma:make-term "number" (format nil "~A" number)))
     (montezuma:flush *index*))
   
   
  
positive.code:   (let ((doc (make-instance 'montezuma:document)))
      ;; We want to be able to search on the ID field, but it should not
      ;; be tokenized.
      (montezuma:add-field doc (montezuma:make-field "id" (format nil "~S" (paste-number paste))
  						   :index :untokenized))
      ;; The USER field is stored and tokenized.
      (montezuma:add-field doc (montezuma:make-field "user" (paste-user paste)
  
negative.code: 	  (format T "~&~5,2F  ~A  ~A  ~10A  ~15A  ~A"
  		  score
  		  (get-field "displaydate")
  		  (get-field "number")
  		  (get-field "channel")
  		  (get-field "user")
  		  (get-field "title")))))))
  