anchor.diff:    (- (svref (gg-subtotals game) (gg-whose-turn? game))
        (svref (gg-subtotals game) (- 1(gg-whose-turn? game)))))
   
  +
  +(defun find-group (pos player game)
  +  (let ((groups (svref (gg-groups game) player)))
  +    (dolist (group groups)
  +      (when (find pos (group-pieces group))
  +        (return-from find-group (group-territory group))))))
  +
  +
  +
   ;;  PRINT-GO
   ;; ----------------------------
   ;;  Print function for the GO-GAME struct
  
positive.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)
  
negative.code:         (let ((p (svref board (find-pos col row))))
            (cond 
              ((= 0 p) (format str "- "))
              ((= 1 p) (format str " "))
              ((= 2 p) (format str "o ")))))
        (format str "~%"))
      (format str "  -------------------~%")
  