anchor.diff:      doc))
   
   (defun make-field (name value &optional
  -                              (tokenize? t))
  +                              (tokenize? t)
  +                              )
     (montezuma:make-field
      (%to-s name)
      (%to-s value)
  
positive.code: 
  (defun package-for-name (name)
    (etypecase name
      (symbol (package-name (symbol-package name)))
      (cons (if (eql 'setf (first name))
                (package-for-name (second name))
  
negative.code:    :index-package
     :index-packages
     :indexed-packages
     :package-document
     :search-manifest
     :search-manifest-collecting
     :print-index-contents
  