anchor.diff:      (setf (gg-whose-turn? game) 
             (- 1 player))
   
  -   (check-order? game) 
       )))
   
   ;;  UNDO-MOVE! : GAME
  
positive.code:                       (remove group
                                (svref (gg-groups game) player)
                                :test #'equal-group?))
                    )
  
                  ;; Check the next group
                  (check-groups (+ index 1))
             ;; Return t
             t)))
         )
  
        ;; Put the piece on the board 
  
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
  