anchor.diff:               (htm (:li (:em "nobody yet"))))
              (dolist (subject subjects)
                (htm
  -               (:li (str (getf (db subject) :name)) (:button :class "text large" :type "submit" :name "remove" :value subject " ⨯ ")))))
  +               (:li 
  +                 (str (getf (db subject) :name)) 
  +                 (unless existing-url 
  +                   (htm 
  +                     (:button :class "text large" :type "submit" :name "remove" :value subject " ⨯ ")))))))
             (when subjects
               (htm (:input :type "hidden" :name "subject" :value (format nil "~{~A~^,~}" subjects))))
             (when next
               (htm (:input :type "hidden" :name "next" :value next)))
  -
  -          (:p (:button :type "submit" :class "text" :name "add" :value "new" "+ Add a person or project"))
  +          (unless existing-url 
  +            (htm 
  +              (:p (:button :type "submit" :class "text" :name "add" :value "new" "+ Add a person or project"))))
             (:textarea :rows "8" :name "text" (str text))
  -          (:p  (:input :type "submit" :class "cancel" :name "cancel" :value "Cancel")
  -          (:input :type "submit" :class "submit" :name "create" :value "Create"))))))
  +          (:p  
  +            (:button :type "submit" :class "cancel" :name "cancel" "Cancel")
  +            (:button :class "yes" :type "submit" 
  +                     :name "create" 
  +                     (str (if existing-url "Save" "Create"))))))))
        :selected "people")
       (gratitude-add-subject :text text :next next)))
   
  
positive.code: 
      (with-locked-hash-table (*activity-person-index*)
        (dolist (person people)
          (asetf (gethash id *activity-person-index*)
                 (remove result it))))
  
      (geo-index-remove *activity-geo-index* result)
  
negative.code:            (progn
               (htm
                 (:h3 "Search results")
                 (:div :class "person-row"
                   (dolist (person results)
                     (htm (:button :type "submit" :value person :name "add" (str (person-tile person :show-city t)))))))))
  
           (:input :type "submit" :class "cancel" :value "Back")
  
  