anchor.diff:      (montezuma:add-document-to-index index new-doc)
       (montezuma:flush index)))
   
  +(defun %delete-doc (doc)
  +  (etypecase doc
  +    (montezuma:document
  +        (montezuma:delete-document
  +         *cl-doc-index*
  +         (document-key-term doc)))))
  +
   (defun ensure-in-index (thing type package
                           &key
                             (index *cl-doc-index*)
  
positive.code:     (print-docs-for-term :type what)
      (format T "~%-------------~%")))
  
  (defun cl-doc-key (package name type)
    (format nil "~A:~A:~A"
            (typecase package
              (package (package-name package))
              (t package))
            name type))
  
  (defun cl-doc-key-term (package name type)
    (make-term :id (cl-doc-key package name type)))
  
negative.code: (defun make-package-doc (package &optional (type :package) package-package)
    (doc-with-fields
     (make-field :id (cl-doc-key nil package type)  nil)
     (make-field :name (get-name package) nil)
     (make-field :search-name (get-name package))
     (make-field :nicknames (package-nicknames package))
     (make-field :type type nil)
     (make-field :package package-package nil)
  