anchor.diff:  	  	  (t
   	    	(setf result (procura internal-problema procura-str))))
       (if (not (null result))
  -    	(converte-para-visualizacao (car result))
  +    	(car result)
  +    	;(converte-para-visualizacao (car result))
       	nil)))
   
   
  
positive.code: 		   (heuristica-value 0))
  
  		;calcular duracao das tarefas que faltam realizar
  		(dolist (task n-tarefas-nao-alocadas)
  			(setf remaining-task-durations (+ remaining-task-durations (task-info-task-duration task))))
  
  		;determinar qual o tempo de funcionamento maximo de uma maquina ate agora
  
negative.code: 											 :number-tasks n-total-tasks
  											 :jobs-tasks-space estado-inicial))
  
  	(cria-problema state-job operadores :objectivo? #'estado-objectivo :heuristica #'heuristica-tempo-desperdicado :custo #'maquina-gastou-mais-tempo)))
    
  
  (defun proxima-tarefa (estado job)
  