anchor.diff:              (doc-value d :name)
               (doc-value d :type))))
   
  -(defun search-manifest (phrase)
  +(defun search-manifest (phrase &optional (show-docs? t))
     (montezuma:search-each
      *cl-doc-index*
      phrase
  
positive.code: (defparameter *cl-doc-index*
    (make-instance
     'montezuma:index
     :path "~/lisp/doc-index"
     :default-field "*"))
  
  (defun join-strings (list
  
negative.code:              (doc-value d :package)
               (doc-value d :name)
               (doc-value d :type)
               score)
       (when show-docs?
         (format T "~4T~A~%~%" (doc-value d :documentation))))
     (list :num-docs 25)))
  
  (defun ql-installed-systems ()
    (iter (for d in (ql-dist:enabled-dists))
      (appending (ql-dist:installed-systems d))))
  
  (defun asdf-loaded-systems () asdf::*defined-systems*)
  
  
  
  
  