anchor.diff:        (setf (result-people result) (list id-to-keep))
         (modify-db (result-id result) :by id-to-keep)))
   
  -  (pprint data-to-keep)
  -  (pprint (db id-to-keep))
     (terpri)
   
     (index-person id-to-keep (apply #'modify-db (cons id-to-keep data-to-keep))))
  
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:     (with-locked-hash-table (*invited-index*)
        (remhash duplicate-id *invited-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*)
  