anchor.diff:  )
   
   ; a random machine player and a human play one game
  -(defmethod demo-random-random (&aux p x o)
  +(defmethod demo-random-human (&aux p x o)
      (setf x (make-instance 'random-machine-player))
      (setf o (make-instance 'human-player))
      (setf p (generic-play x o t))
  
positive.code:    )
  )
  
  ; TODO
  ; be able to visualize plays with nil in them
  (defun visualize (lst)
     ;(drawrow '(nw n ne) lst)
     ;(format t "~%")
     ;(drawrow '(w c e) lst)
     ;(format t "~%")
     ;(drawrow '(sw s se) lst)
     ;(format t "~%")
     (format t "~S~%" lst)
  )
  
  ; find the highest score for a given 'winning' outcome
  
negative.code:          ((eq player 'x)
              (setf move (make-move x report))
           )
           ((eq player 'o)
              (setf move (make-move o report))
           )
        )
  