anchor.diff:  )
   
   (defmethod random-play-and-learn (
  -   (x heuristic-learning-machine) (o random-machine-player) (verbose t)
  +   (x heuristic-learning-machine-player) (o random-machine-player) (verbose t)
      &aux p result
      )
      (setf p (random-play x o verbose))
  
positive.code:    )
  )
  
  (defmethod heuristic-play (
     (x heuristic-learning-machine-player) (o random-machine-player) (record t)
     &aux move
     )
  
negative.code:    (dolist (player '(x o x o x o x o x))
        (cond
           ((eq player 'x)
              (setf move (make-heuristic-move x record))
           )
           ((eq player 'o)
              (setf move (make-random-move o record))
  