anchor.diff:      (h:hset web-element :text (x-o))
       (check-win)
       (when (and (not (won))
  -               *computer-player*
  -      (computer-move)))))
  +               (or (eql :computer *player-1*)
  +                   (eql :computer *player-2*)))
  +      (computer-move))))
   
   (defun s (&rest numbers)
     "Sum of binary shifted numbers."
  
positive.code: (defvar *cells*    "[class='cells']")
  (defvar *new-game* "#new-game")
  
  (defvar *computer-player* t)
  (defvar *cell-count*      9)
  
  (defun cell-id (index)
    (format nil "#c~D" (1+ index)))
  
negative.code: (defun new-game ()
    (reset-x-o)
    (unmark-row)
    (h:hset *cells* :text "")
    (when (eql :computer *player-1*)
      (computer-move)))
  
  (defun move (web-element)
    (when (and (not (won))
  