anchor.diff:        (push id *active-people-index*))
       (modify-db id :active t
                     :notify-message t
  +                  :notify-kindista t
                     :notify-reminders t
                     :notify-expired-invites t
                     :notify-gratitude t)))
  
positive.code:       (delete-inventory-item offer-id))
      (modify-db id :active nil
                    :notify-message nil
                    :notify-reminders nil
                    :notify-expired-invites nil
                    :notify-gratitude nil)))
  
negative.code:                   :banned t
                    :notify-kindista nil)))
  
  (defun delete-active-account (id)
    (let ((data (db id)))
      (deactivate-person id)
  
      (awhen (getf data :emails)
        (with-locked-hash-table (*email-index*)
          (dolist (email it)
            (remhash email *email-index*))))
  
      (modify-db id :emails (list nil)
                    :deleted t)))
  
  (defun find-people-with-incorrect-communication-settings ()
    (sort (iter (for id in *active-people-index*)
            (let ((data (db id)))
              (when (or (not (getf data :notify-kindista))
                        (not (getf data :notify-reminders)))
                (collect id)))) #'<))
  
  (defun find-people-with-incorrect-address-settings ()
    (sort (iter (for id in *active-people-index*)
            (let ((data (db id)))
              (when (and (string= (getf data :street) "NIL NIL")
                         (or (not (getf data :lat))
                             (not (getf data :long))))
                (collect id)))) #'<))
  
  (defun reset-communication-settings ()
  