anchor.diff:  					; Verifica que la ficha que quiere mover le corresponde
   		(progn
   			(setf (nth
  -								(+ (* 3 (first PosicionSiguiente)) (cadr PosicionSiguiente)) *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 PosicionSiguiente)) (cadr PosicionSiguiente)) *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 ) ) ; Retorna NIL en caso de que no sea posible el desplazamiento
  
positive.code: 					; Verifica que la ficha que quiere mover le corresponde
  		(progn
  			(setf (nth
  								(+ (* 3 (first PosicionSiguiente)) (cadr PosicionSiguiente)) *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 ) ) ; Retorna NIL en caso de que no sea posible el desplazamiento
  
negative.code: 					; Verfica que la posición esté libre
  			(progn
  				(setf (nth
  					(+ (* 3 (first Posicion)) (cadr Posicion)) *Tablero*)
  					Ficha)
  						; Poner la Ficha en la Posición Final
  				(setq *NumeroFichas* (+ *NumeroFichas* 1))
  					; Actualiza el número de fichas que hay en el tablero.
  				(setq *Turno* (* *Turno* -1)) )
  