anchor.diff:     ))
      (dolist (w wcond)
         (cond
  -         ((eq (length (intersection w l)) 3)
  +         ((eq (length (intersection w _l)) 3)
               (return-from line t)
            )
         )
  
positive.code: (defmethod demo-heuristic-human ((nr-rules integer) &aux p x o)
     (setf *nr-random-moves-by-hmp* 0)
     (setf *nr-heuristic-moves-by-hmp* 0)
     (setf *nr-random-moves-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)
  
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)
  