anchor.diff:               (doc-value d :package)
                (doc-value d :name)
                (doc-value d :type)
  -             score))))
  +             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*)
  +
  +
  +
  +
  
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 :name)
              (doc-value d :type))))
  
  (defun search-manifest (phrase &optional (show-docs? t))
    (montezuma:search-each
     *cl-doc-index*
     phrase
  