anchor.diff:  					; Verfica que la posición a la que se quiere mover esté libre
   			(progn
   				(setf (nth
  -								(+ (* 3 (first PosicionFinal)) (cadr PosicionFinal)) *Tablero*)
  -								Ficha)
  -									; Poner la Ficha en la Posición Final
  -				(setf (nth
  -								(+ (* 3 (first PosicionActual)) (cadr PosicionActual)) *Tablero*)
  -								nil)
  -									; Dejar vacía la Posición Inicial
  +					(+ (* 3 (first PosicionFinal)) (cadr PosicionFinal)) *Tablero*)
  +					Ficha)
  +						; Poner la Ficha en la Posición Final
  +				(setf (nth
  +					(+ (* 3 (first PosicionActual)) (cadr PosicionActual)) *Tablero*)
  +					nil)
  +						; Dejar vacía la Posición Inicial
   				(setq *Turno* (* *Turno* -1)) )
   					; Cambiar de turno
   			NIL) )
   
  -;---------------------
  +;---------------------------------------------------
   
   ;---------------------------------------------------
   ; (desplazar-diagonal-b-izquierda A J) - \ hacia la izquierda
  
positive.code: 					; Verfica que la posición a la que se quiere mover esté libre
  			(progn
  				(setf (nth
  								(+ (* 3 (first PosicionFinal)) (cadr PosicionFinal)) *Tablero*)
  								Ficha)
  									; Poner la Ficha en la Posición Final
  				(setf (nth
  								(+ (* 3 (first PosicionActual)) (cadr PosicionActual)) *Tablero*)
  								nil)
  									; Dejar vacía la Posición Inicial
  				(setq *Turno* (* *Turno* -1)) )
  					; Cambiar de turno
  			NIL) )
  
  	;---------------------------------------------------
  
  	;---------------------------------------------------
  ; (desplazar-diagonal-b-derecha A J) - \ hacia la derecha
  ;
  ; Toma como parámetros de entrada a las coordenas A (de la ficha seleccionada)
  
negative.code: 		((= *Turno* -1) (setq Ficha *FichaO*))
  		((= *Turno* 1) (setq Ficha *FichaH*))
  	)
  	(if (and
  				(= *Turno* Jugador)
  					; Verifica que le corresponda el turno (que le toque jugar)
  