anchor.diff:  (defun calendarizacao (job-shop-problem procura-str) 
     (let ((internal-problema (converte-para-estado-interno job-shop-problem))
   		(result nil))
  -
  -    (cond ((equal procura-str "ILDS") (ilds internal-problema))
  -	  	  ((equal procura-str "Iterative-Sampling") (sondagem-iterativa internal-problema))
  +    (cond ((equal procura-str "ILDS") (return-from calendarizacao (ilds internal-problema)))
  +	  	  ((equal procura-str "Iterative-Sampling") (return-from calendarizacao (sondagem-iterativa internal-problema)))
   	  	  (t
   	    	(procura internal-problema procura-str)))))
   
  
positive.code:                                        (if(equal num-elem 0)
                                             nil
                                           (lanca-sonda (nth (random num-elem) sucessores))))))))
                   (unless (null solucao) 
                     (setf solucao (lanca-sonda (problema-estado-inicial problema))))
                   (return-from sondagem-iterativa (list solucao)))))
  
negative.code: 		   		(virtual-time-before (job-task-w-constr-virtual-time job-w-constr-before))
  		   		(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)))
    
  
  (defun proxima-tarefa (estado job)
  