anchor.diff:      (setf (gg-whose-turn? game) 
             (- 1 player))
   
  -   (check-order? game) 
       )))
   
   ;;  UNDO-MOVE! : GAME
  
positive.code:                (return-from find-group t)))))
  
         (check-groups ; (INDEX), Find the group the piece should belong to if it exists
           (index)
           ;; Do for each group 
           (if (< index (length player-groups))
             ;; Search for an existing group it could fit in
             (let ((group (nth index player-groups))
                   )
                 ;; When it's in the area of the group
                 (when (and (>= (+ row group-dist) 
                                 (svref (group-area group) *min-row*))
  
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
  