anchor.diff:  			   		(duration-before (job-shop-task-duration job-task-before)))
   	      		(setf (job-task-w-constr-virtual-time job-w-constr) (+ virtual-time-before duration-before)))))
   
  -	(cria-problema estado-inicial operadores :objectivo? #'estado-objectivo)))
  +	(setf state-job (make-state-job-schedule :machine-times (make-array n.jobs)
  +											 :non-allocated-tasks tasks-to-assign
  +											 :number-tasks n-total-tasks
  +											 :jobs-tasks-space estado-inicial))
  +
  +	(cria-problema state-job operadores :objectivo? #'estado-objectivo)))
     
   
   (defun proxima-tarefa (estado job)
  
positive.code:                          (lanca-sonda (nth (random num-elem) sucessores))))))))
               (loop while (null solucao) do
                 (setf solucao (lanca-sonda (problema-estado-inicial problema))))
               (return-from sondagem-iterativa (list solucao)))))
  
negative.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 tasks-to-assign (append tasks-to-assign (list (make-task-info :job-id job
  		    																	:task-id task-nr
  		    																	:task-duration (job-shop-task-duration task)))))
  		    (setf (aref estado-inicial job task-nr) job-task-wrapper)))))
  
  	 ;inicializacao de precedencias
  