anchor.diff:      (with-locked-hash-table (*invited-index*)
         (remhash duplicate-id *invited-index*))
   
  -    (dolist (group (getf (copy-list
  -                           (gethash duplicate-id *group-privileges-index*))
  +    (dolist (group (getf (copy-list (gethash duplicate-id
  +                                             *group-privileges-index*))
                            :admins))
         (with-locked-hash-table (*group-members-index*)
           (remove duplicate-id (getf (gethash group *group-members-index*)
  
positive.code:     (metaphone-index-insert names result)))
  
  (defun merge-duplicate-accounts
    (data-to-keep
      duplicate-account-id-list
      &aux (id-to-keep (apply #'min duplicate-account-id-list))
           (ids-to-deactivate (remove id-to-keep duplicate-account-id-list))
           (oldest-data (db id-to-keep)))
  
    "ALWAYS TEST THE MERGE ON A DEVELOPMENT SYSTEM WITH CURRENT DATA"
    ;; keep earliest id
  
negative.code:         (setf (getf data-to-keep :following)
                (union (getf data-to-keep :following) it)))
  
        (when (getf data-to-keep :pending)
          (setf (getf data-to-keep :pending)
                (getf data :pending)))
  
        (aif (getf data-to-keep :username)
          (with-locked-hash-table (*username-index*)
  