anchor.diff:  (defparameter *cl-doc-index*
     (make-instance
      'montezuma:index
  -   :path "~/lisp/doc-index"
      :default-field "*"))
   
   (defun join-strings (list
  
positive.code:              (doc-value d :package)
               (doc-value d :name)
               (doc-value d :type)
               score))))
  
  
negative.code:       ;; this breaks when the field doesnt exist
        (montezuma:document-value doc field))))
  
  (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~%"
  