anchor.diff:  
    )
   
  -(defun viable-mov (indActual indSig)
  -
  - (let ( (Posmov (hijos-de (coordenada indActual)))
  -	   (FichaSig  (coordenada indSig))
  -       (viable  NIL)
  -     )
  -		
  +(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)
  -					(if(equal (cadar i)	FichaSig)
  -				    	(setq viable T)	
  -			        )
  -		 	)
  -		viable
  - ) 
  -
  -)
  -
  -
  +				; (print (cadar i));---
  +				; (print B);---
  +				(if(equal (cadar i)	B)
  +			    	(setq viable T)	) ) )
  +		viable ) )
   
   
   
  
positive.code: 		      	; (print (coordenada-tablero indiceFicha));----
  		      	(if (not (null (poner (coordenada-tablero indiceFicha) *Humano*)))
  		      		(progn
  				      	(pintar-ficha indiceFicha *colorHumano*)
  				      	(format t "~%Tu jugada:")
  				      	(mostrar-tablero);----
  				      	; Buscando ganador
  
negative.code: 				( (= posicion 7) (itemconfigure lienzo ovalo8 :fill Color) )
  				( (= posicion 8) (itemconfigure lienzo ovalo9 :fill Color) ) ) )
  
  		(defun pintar-tablero()
  			(loop for ficha in *tablero*
  				  for i from 0 to (length *tablero*)
  				  do(progn
  				  	(cond
  				  		((equal ficha *FichaVacia*) (pintar-ficha i *colorFicha*))
  				  		((equal ficha *fichaO*) (pintar-ficha i *colorOrdenador*))
  				  		((equal ficha *fichaH*) (pintar-ficha i *colorHumano*)) ) )) )
  
  		 ) ) )
  
  (tablero)