anchor.diff:  ; posteriormente.
   
   (setq *EstadosMeta*
  -	'( ; Conjunto de estados
  +	'(
   		((0 0) (1 0) (2 0)) ; Primera columna
   		((0 1) (1 1) (2 1)) ; Segunda columna
   		((0 2) (1 2) (2 2)) ; Tercera columna
  
positive.code: 	(find Estado *EstadosMeta* :test #'equal)
  )
  
  ;---------------------------------------------------
negative.code: 		((2 0) (2 1) (2 2)) ; Tercera fila
  		((0 0) (1 1) (2 2)) ; Diagonal \
  		((2 0) (1 1) (0 2)) ; Diagonal /
  	)
  )
  
  