anchor.diff:                        (remove group
                                 (svref (gg-groups game) player)
                                 :test #'equal-group?))
  -                  )
  -
  -                ;; Check the next group
  -                (check-groups (+ index 1))
  -           ;; Return t
  -           t)))
  +                  )) 
  +         t)
          )
   
         ;; Put the piece on the board 
  
positive.code:     (setf (gg-whose-turn? game) 
            (- 1 player))
  
     (check-order? game) 
      )))
  
  ;;  UNDO-MOVE! : GAME
  
negative.code:           ;; Return 0
            0)
          ;; Otherwise check the groups of the player whose turn it is
          (when (check-groups)
            (cond
              ;; If no group was found
              ;; Make a new group
  