anchor.diff:          (setf (getf data-to-keep :following)
                 (union (getf data-to-keep :following) it)))
   
  -      (awhen (getf data-to-keep :pending)
  -        (setf it (getf data :pending)))
  +      (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*)
  
positive.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*)
  
negative.code:       (setf (result-people result) (list id-to-keep))
        (modify-db (result-id result) :by id-to-keep)))
  
    (terpri)
  
    (index-person id-to-keep (apply #'modify-db (cons id-to-keep data-to-keep))))
  