anchor.diff:               (flash "Your statement of gratitude has been deleted!")
                (see-other (or (post-parameter "next") "/home")))
   
  +            ((post-parameter "cancel")
  +             (see-other (or (post-parameter "next") "/home")))
  +
  +            ((post-parameter "create")
  +               (if (post-parameter "text")
  +                 (progn
  +                   (modify-gratitude (parse-integer id) (post-parameter "text"))
  +                   (see-other (s+ "/gratitude/" id)))
  +                 "no text"))
  +
               (t
                (gratitude-compose :subjects (getf gratitude :subjects)
                                   :text (getf gratitude :text)
  
positive.code:            (progn
               (htm
                 (:h3 "Search results")
                 (:menu
                   (dolist (result results)
                     (htm (:li (:button :class "text" :type "submit" :value (car result) :name "add" (str (cadr result))))))))))
  
           (:input :type "submit" :class "cancel" :value "Back")
  
  
negative.code: 
      (with-locked-hash-table (*activity-person-index*)
        (dolist (person people)
          (asetf (gethash person *activity-person-index*)
                 (remove result it))))
  
      (geo-index-remove *activity-geo-index* result)
  