anchor.diff:  
   (defun print-default-search ( &optional (limit 1000) )
     "Prints the package, name and type of every document in the index (up to limit)"
  -  (search-manifest "*" :n limit :show-docs? nil))
  +  (search-manifest "*" :n limit :result-fn #'print-search-results))
   
   (defun print-index-contents ( )
     "Prints the package, name and type of every document in the index (up to limit)"
  
positive.code: (defun find-doc-by-key (package name type)
    (get-doc (cl-doc-key-term package name type)))
  
  (defun search-manifest (phrase
                          &key
                            (stream T)
                            (n 25)
                            (show-docs? t))
    "Searches through all of the known common lisp (in-process)
     documentation for the query and displays the results
  
     n: The n highest scoring documents will be printed to stdout
  
     if show-docs? is nil we will only print the package:name of
     the objects that match"
    (montezuma:search-each
     *cl-doc-index*
     phrase
     (lambda (d score)
       (print-doc d stream "{~a}" score)
       (when show-docs?
         (format stream "~4T~A~%~%" (doc-value d :documentation))))
     (list :num-docs n)))
  
  (defun print-doc (d &optional (stream t) (message "") &rest args)
    (format stream "~%~A:~A <~A> ~?"
  
negative.code:    :index-packages
     :indexed-packages
     :search-manifest
     :search-manifest-collecting
     :print-index-contents
     :load-index
     :close-index
  