anchor.diff:        (delete-inventory-item offer-id))
       (modify-db id :active nil
                     :notify-message nil
  +                  :notify-kindist nil
                     :notify-reminders nil
                     :notify-expired-invites nil
                     :notify-gratitude nil)))
  
positive.code:                   :banned t
                    :notify-kindista nil)))
  
  (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 reset-communication-settings ()
  
negative.code:       (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)))
  