anchor.diff:                           (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)))))
  +             (return-from sondagem-iterativa solucao))))
  
positive.code: 			  ;o numero da maquina
  			  (setf nr.maquina (job-shop-task-machine.nr job-task))
  
  			  ;actualizar o tempo de inicio do job 
  			  (setf (job-shop-task-start.time copia-task) (job-task-w-constr-virtual-time (aref estado job prox-task)))
  			  (setf last-start-time (job-shop-task-start.time copia-task))
  			  (setf task-duration (job-shop-task-duration job-task))
  			  (setf (aref novo-estado job prox-task) (make-job-task-w-constr :job-task copia-task :virtual-time (job-shop-task-start.time copia-task)))
  			  (propaga-restr-tempo-task novo-estado prox-task job last-start-time task-duration)
  			  (propaga-restr-tempo-maquina novo-estado nr.maquina job last-start-time task-duration)
  			  (setf sucessores (cons novo-estado sucessores))))))
      sucessores))
  
  (defun propaga-restr-tempo-task (estado task-nr job-nr last-start-time task-duration)
  
negative.code: 			   		(duration-before (job-shop-task-duration job-task-before)))
  	      		(setf (job-task-w-constr-virtual-time job-w-constr) (+ virtual-time-before duration-before)))))
  
  	(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)
  