anchor.diff:       (make-field :name thing nil)
        (make-field :search-name thing)
        (make-field :type (case type
  -                         (:function (if (macro-function thing)
  +                         (:function (if (is-macro? thing) 
                                           :macro
                                           :function))
                            (T type)) nil)
  
positive.code:    (%to-s value)
     :index (if tokenize? :tokenized :untokenized)))
  
  (defun make-default-doc (thing
                           &optional type package
                           &aux (docs (manifest::docs-for thing type)))
  
negative.code:      (make-field :documentation docs)
       (case type
         (:function
          (let ((arglist (ignore-errors (swank::arglist thing))))
          (when arglist
           (make-field :arglist arglist )))))
       )))
  
  (defun make-package-doc (package &optional (type :package) package-package)
  