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:         (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*)
  