anchor.diff:  
   
   (defun calendarizacao (job-shop-problem procura-str) 
  -  (let ((internal-problema (converte-para-estado-interno job-shop-problem))
  +  (let ((internal-problema nil)
   		(result nil))
  -    (cond ((string-equal procura-str "ILDS") (setf result (ilds internal-problema 100)))
  -	  	  ((string-equal procura-str "Iterative-Sampling") (setf result (sondagem-iterativa internal-problema)))
  -	  	  ((string-equal procura-str "Local-Beam") (setf result (beam-search internal-problema 10 25)))
  +    (cond ((string-equal procura-str "ILDS") (setf internal-problema (converte-para-estado-interno job-shop-problem #'heuristica-tempo-final-v2))
  +    										  (setf result (ilds internal-problema 100)))
  +	  	  ((string-equal procura-str "Iterative-Sampling") (setf internal-problema (converte-para-estado-interno job-shop-problem #'heuristica-tempo-final-v2))
  +	  	  													(setf result (sondagem-iterativa internal-problema)))
  +	  	  ((string-equal procura-str "Local-Beam") (setf internal-problema (converte-para-estado-interno job-shop-problem #'heuristica-tempo-final-v2))
  +	  	  										    (setf result (beam-search internal-problema 10 25)))
   	  	  (t
  -	    	(setf result (procura internal-problema procura-str :espaco-em-arvore? T))))
  +	    	 (setf internal-problema (converte-para-estado-interno job-shop-problem #'heuristica-tempo-final-v2))
  +	    	 (setf result (procura internal-problema procura-str :espaco-em-arvore? T))))
       (if (not (null result))
       	(if (not (listp (car result)))
       		(converte-para-visualizacao (car result))
  
positive.code: 			  (setf sucessores (append sucessores (list (make-state-job-schedule :machine-times tempos-maquinas-actual
  																				 :non-allocated-tasks tasks-to-assign-actual
  																				 :number-tasks (state-job-schedule-number-tasks state-job)
  																				 :jobs-tasks-space novo-estado))))))))
      sucessores))
  
  (defun propaga-restr-tempo-task (estado task-nr job-nr last-start-time task-duration)
  
negative.code: 				(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 funcao-heuristica) 
    (let ((operadores (list #'inicia-task))
  		(n.jobs (job-shop-problem-n.jobs job-shop-prob))
  		(estado-inicial nil)
  