anchor.diff:                    (push group connected-groups)
   
                    (setf (svref (gg-groups game) player)
  -                      (delete group
  +                      (remove group
                                 (svref (gg-groups game) player)
                                 :test #'equal-group?))
                     )
  
positive.code:     
      ;; Remove the groups from the opponent's groups
      (setf (svref (gg-groups game) opponent) 
            (delete group (svref (gg-groups game) opponent)))
  
      ;; Add them to player's captures
      (push group (svref (gg-captures game) player))
  
negative.code:     (when verbose? (print-go new-g t nil t t))
  
      (setq moves (legal-moves new-g))
      (when verbose? (format t "Should not contain 41~%"))
      (when verbose? (format t "Legal Moves: ~A~%" moves))
  
      (test "Ko-Legality" 
  