anchor.diff:        ;; Otherwise return false
         nil)))
   
  -;;  CAPTURE-GROUP! : GROUP GAME
  +;;  CAPTURE-GROUP! : GROUP GAME PLAYER
   ;; ---------------------------------
   ;;  INPUTS
   ;;  SIDE-EFFECT: Destructively modify the game state by 
   ;;          capturing GROUP
  -(defun capture-group! (group game)
  +(defun capture-group! (group game player)
     ;;(format t "Capture group: ~A ~%" group)
  -  (let ((opponent (- 1 (gg-whose-turn? game))))
  +  (let ((opponent (- 1 player)))
       ;; Remove the groups from the opponent's groups
       (setf (svref (gg-groups game) opponent) 
             (delete group (svref (gg-groups game) opponent)))
  
positive.code:             (svref evals *white*))
      (format str "Current Val: ~A, Whose Turn ~A, Game Over? ~A~%" 
              (eval-func game)
              whose-turn?
              (game-over? game)))
    (when verbose?
      (format str "~%Black Groups:~%~A" (svref (gg-groups game) *black*)) 
  
negative.code: (defconstant *black* 0)
  (defconstant *white* 1)
  (defconstant *group-dist* 4)
  (defconstant *board-length* 9)
  (defconstant *board-size* (* *board-length* *board-length*)) 
  
  (defun cl (filename)
  