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:     (load-index))
    (montezuma:field-data
     (montezuma:document-field
      (montezuma:get-document *index* (montezuma:make-term "id" (format nil "~A" number)))
      "contents")))
  
  
  
negative.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 "number" (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)
  