anchor.diff:  (defun add-to-index (thing type &optional
                        package (index *cl-doc-index*)
                        &aux (doc-fn (doc-fn type))
  -                     (document (funcall doc-fn thing type package)))
  +                     (new-doc (funcall doc-fn thing type package))
  +                     )
     "add documentation for a specific thing of type from a package "
  -  (when document
  -    (montezuma:add-document-to-index index document)))
  +  (when new-doc
  +    (montezuma:delete-document index (cl-doc-key-term package thing type))
  +    (montezuma:add-document-to-index index new-doc)
  +    (montezuma:flush index)))
   
   (defun index-package (package-name)
     "Add package documentation and docs for all public symbols to the index"
  
positive.code: 
  (defun make-package-doc (package &optional (type :package) package-package)
    (doc-with-fields
     (make-field :name (package-name package))
     (make-field :nicknames (package-nicknames package))
     (make-field :type type nil)
  
negative.code:   ;; the doc instead of not adding docs with missing documentation
    (when docs
      (doc-with-fields
       (make-field :id (cl-doc-key package thing type) nil)
       (make-field :name thing)
       (make-field :type type nil)
       (make-field :package package nil)
  