anchor.diff:  (defstruct state-job-schedule
   	machine-times
   	non-allocated-tasks
  -	allocated-tasks
  +	number-tasks
   	jobs-tasks-space)
   
   (defstruct task-info
  +	job-id
   	task-id
   	task-duration)
   
   (defun converte-para-visualizacao (estado-interno)
  -  ) 
  +	(let*  ((jobs-tasks (state-job-schedule-jobs-tasks-space estado-interno))
  +			(dimensions (array-dimensions jobs-tasks))
  +       	 	(rows (car dimensions)) ;numero de jobs igual ao numero de linhas
  +       	 	(columns (cadr dimensions))
  +       	 	(return-list nil))
  +		(dotimes (i rows)
  +			(dotimes (j columns)
  +				(setf return-list (append return-list (list (job-task-w-constr-job-task (aref jobs-tasks i j)))))))
  +		return-list))
   
   (defun converte-para-estado-interno (job-shop-prob) 
     (let ((operadores (list #'inicia-task))
   		(n.jobs (job-shop-problem-n.jobs job-shop-prob))
   		(estado-inicial nil)
  +		(state-job nil)
   		(max-num-tasks 0)
  -		(jobs (job-shop-problem-jobs job-shop-prob)))
  +		(n-total-tasks 0)
  +		(jobs (job-shop-problem-jobs job-shop-prob))
  +		(tasks-to-assign nil))
   
   	(dotimes (job n.jobs)
  -	  (if (> (list-length (job-shop-job-tasks (nth job jobs))) max-num-tasks)
  +		(setf n-total-tasks (+ n-total-tasks (list-length (job-shop-job-tasks (nth job jobs)))))
  +		(if (> (list-length (job-shop-job-tasks (nth job jobs))) max-num-tasks)
   	      	(setf max-num-tasks (list-length (job-shop-job-tasks (nth job jobs))))))
   
   	(setf estado-inicial (make-array (list n.jobs max-num-tasks)))
  
positive.code: 	      (let* ((job-task-wrapper (make-job-task-w-constr :job-task (copy-job-shop-task task) :virtual-time 0))
  		      	 (task-nr (job-shop-task-task.nr task)))
  
  		    (setf (aref estado-inicial job task-nr) job-task-wrapper)))))
  
  	 ;inicializacao de precedencias
  
negative.code: 	    	 (nr.maquina nil)
  	    	 (last-start-time nil)
  	    	 (task-duration nil)
  	    	 (copia-task nil)
  	    	 (tempo-maquina-actual nil)
  	    	 (tempos-maquinas-actual nil)
  	    	 (tasks-to-assign-actual nil))
  
  	    (if (not (null prox-task))
  			(progn
  