anchor.diff:  
   ;; Tell the copiler to speed things up
   (eval-when (compile)
  -  (declaim (optimize (speed 3) (safety 1) (space 0) (debug 0))))
  +  (declaim (optimize (speed 0) (safety 3) (space 0) (debug 3))))
   
   ;;  GLOBAL CONSTANTS
   
  
positive.code: (defconstant *black* 0)
  (defconstant *white* 1)
  (defconstant *group-dist* 4)
  (defconstant *board-length* 6)
  (defconstant *board-size* (* *board-length* *board-length*)) 
  
  (defun cl (filename)
  
negative.code:       ;; Otherwise return false
        nil)))
  
  ;;  CAPTURE-GROUP! : GROUP GAME PLAYER
  ;; ---------------------------------
  ;;  INPUTS
  ;;  SIDE-EFFECT: Destructively modify the game state by 
  ;;          capturing GROUP
  (defun capture-group! (group game player)
    ;;(format t "Capture group: ~A ~%" group)
    (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)))
  