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