anchor.diff:      (list (join-strings thing))
       (t (princ-to-string thing))))
   
  -(defparameter +index-path+ #P"~/quicklisp/doc-index"
  +(defparameter +index-path+
  +  #P"/home/quicklisp-builder/quicklisp/doc-index"
  +;;  #P"~/quicklisp/doc-index"
                 "The location of the persistent document-index")
   
   (defvar *cl-doc-index* nil
  
positive.code: (defun make-default-search-collector (result-collector)
    (lambda (d &optional score)
      (collectors:with-collector (rtn)
        (iter (for n in (list :package :name :type :documentation))
          (rtn n (doc-value d n)))
        (when (eql :package (doc-value d :type))
          (rtn :readme (doc-value d :readme)))
        (rtn :score score)
        (funcall result-collector (rtn)))))
  
negative.code:    :index-package
     :index-packages
     :indexed-packages
     :package-document
     :search-manifest
     :search-manifest-collecting
     :print-index-contents
  