anchor.diff:        ((eq (analyze *play-so-far*) 'w)
            (cond
               ((eq *most-recent-hmp-move* 'random)
  -               (setf *nr-random-moves-wins-by-hmp* (+ 1 *nr-random-moves-wins-by-hmp*))
  +               (setf *nr-random-move-wins-by-hmp* (+ 1 *nr-random-move-wins-by-hmp*))
               )
               ((eq *most-recent-hmp-move* 'heuristic)
                  (setf *nr-heuristic-move-wins-by-hmp* (+ 1 *nr-heuristic-move-wins-by-hmp*))
  
positive.code:       ((eq (analyze *play-so-far*) 'w)
           (cond
              ((eq *most-recent-hmp-move* 'random)
                 (setf *nr-random-moves-wins-by-hmp* (+ 1 *nr-random-moves-wins-by-hmp*))
              )
              ((eq *most-recent-hmp-move* 'heuristic)
                 (setf *nr-heuristic-move-wins-by-hmp* (+ 1 *nr-heuristic-move-wins-by-hmp*))
  
negative.code: (defmethod demo-heuristic-random ((nr-rules integer) &aux p x o)
     (setf *nr-random-moves-by-hmp* 0)
     (setf *nr-heuristic-moves-by-hmp* 0)
     (setf *nr-random-move-wins-by-hmp* 0)
     (setf *nr-heuristic-move-wins-by-hmp* 0)
     (setf x (make-instance 'heuristic-machine-player :name 'hm))
     (add-rules x nr-rules)
  