anchor.diff:                       					(setf result (ildsProbe suc (- maxDiscrepancia 1 ) (- rProfundidade 1)))
                        					(print result)
                        					(when (not (null result))
  -                     					 	(return-from ildsProbe (list result)))))
  -                 				(return-from ildsProbe (list result)))))))
  +                     					 	(return-from ildsProbe result))))
  +                 				(return-from ildsProbe result))))))
   			(loop for maxDiscrepancia from 0 to numMaxDiscrepancia do
   				(setf result (ildsProbe (problema-estado-inicial problema) maxDiscrepancia (- numMaxDiscrepancia maxDiscrepancia)))
   				(when (not (null result))
  
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: 		 (solucao nil))
  
      (labels ((lanca-sonda (estado)
                (cond ((funcall objectivo? (state-job-schedule-jobs-tasks-space estado)) (list estado))
                      ((null estado) nil)
                      (t 
                       (let* ((sucessores (problema-gera-sucessores problema estado))
  