anchor.diff:                 (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-moves-wins-by-hmp*))
  +               (setf *nr-heuristic-move-wins-by-hmp* (+ 1 *nr-heuristic-move-wins-by-hmp*))
               )
            )
         )
  
positive.code:    (setf s (statistics #'heuristic-play x o tnt verbose))
     (format t "stats after learning = ~A~%" s)
  )
  
negative.code:    move
  )
  
  (defmethod make-heuristic-move ((p heuristic-machine-player) (report t) &aux move)
     (make-move p report)
  )
  
  (defmethod select-from-rule-base ((p heuristic-machine-player) &aux rule-base)
     (setf rule-base (heuristic-machine-player-rules p))
     (dolist (rule rule-base)
  