anchor.diff:  		      	; (print (coordenada-tablero indiceFicha));----
   		      	(if (not (null (poner (coordenada-tablero indiceFicha) *Humano*)))
   		      		(progn
  -				      	(pintar-ficha indiceFicha *colorHumano*)
  +				      	; (pintar-ficha indiceFicha *colorHumano*)
   				      	(format t "~%Tu jugada:")
   				      	(mostrar-tablero);----
   				      	; Buscando ganador
  
positive.code: 				( (= posicion 7) (itemconfigure lienzo ovalo8 :fill Color) )
  				( (= posicion 8) (itemconfigure lienzo ovalo9 :fill Color) ) ) )
  
  		 ) ) )
  
  (tablero)
negative.code: 
   )
  
  (defun movimiento-valido-p(A B)
   (let ( (Posmov (hijos-de A))
         (viable  NIL) )
   		; (print 'movimiento-valido-p);----
   		; (print A);----
   		; (print 'hijos-de-A);----
   		; (print Posmov);----
   		; (mostrar-tablero);----
   		(if (equal (obtener-ficha A) *FichaH*)
  			(dolist (i Posmov) ; i es una coordenada en el tablero (x y)
  				; (print (cadar i));---
  				; (print B);---
  				(if(equal (cadar i)	B)
  			    	(setq viable T)	) ) )
  		viable ) )
  
  
  
  