anchor.diff:        ;; this breaks when the field doesnt exist
         (montezuma:document-value doc field))))
   
  -(defun print-index-contents ()
  +(defun print-index-contents ( &optional (limit 1000) )
     (iter (for i upfrom 0)
  +    (when limit (while (< i limit)))
       (for d = (get-doc i))
       (while d)
       (format T "~A:~A:~A~%"
  
positive.code:         (add-to-index name what package)))
      ))
  
  (defun get-doc (idx)
    "Get a document for the thing passed in"
    (etypecase idx
  
negative.code:             (doc-value d :name)
              (doc-value d :type))))
  
  (defun search-manifest (phrase &optional (show-docs? t))
    (montezuma:search-each
     *cl-doc-index*
     phrase
  