anchor.diff:          (let ((p (svref board (find-pos col row))))
             (cond 
               ((= 0 p) (format str "- "))
  -            ((= 1 p) (format str "X "))
  +            ((= 1 p) (format str " "))
               ((= 2 p) (format str "o ")))))
         (format str "~%"))
       (format str "  -------------------~%")
  
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:     (when (not (= (svref board0 i) (svref board1 i)))
        (return-from equal-board? nil)))
    t)
  
  ;;  GAME-OVER? : GAME
  ;; -------------------------------
  (defun game-over? (game)
    (if (or (> (length (gg-move-history game)) *board-size*) 
            (and (> (length (gg-move-history game)) 2) 
                 (= (svref (first (gg-move-history game))0)
                    (svref (second (gg-move-history game))0))))
  
      t
      nil))
  
  ;;  INIT-GAME
  ;; ---------------------------------------
  