anchor.diff:  
   		 (result nil)
   		 (tempo 300))
  -
       (labels ((beam (estados)
                 (cond ((<= (- tempo (/ (- (get-internal-run-time) tempo-inicio) internal-time-units-per-second)) 0.2) (return-from beam-search result))
   		    		((funcall objectivo? (first estados)) (list (first estados)))
  
positive.code: 		(subseq sorted 0 beam-width))))
   		)
  
  (defun is-better-solution (heur)
        #'(lambda (best-solution-so-far new-solution)
  	    (< (funcall heur (first new-solution)) (funcall heur (first best-solution-so-far)))))
  	    
  (defun beam-search (problema beam-width max-beam-width) 
    (let* ((*nos-gerados* 0)
  		 (*nos-expandidos* 0)
  		 (tempo-inicio (get-internal-real-time))
  
negative.code: 	  ((string-equal procura-str "sondagem.iterativa") (setf internal-problema (converte-para-estado-interno job-shop-problem #'heuristica-tempo-final-v2))
  							   (setf result (sondagem-iterativa internal-problema)))
  	  ((string-equal procura-str "abordagem.alternativa") (setf internal-problema (converte-para-estado-interno job-shop-problem #'heuristica-tempo-final-v2))
  							      (setf result (beam-search internal-problema #'is-better-solution-job-shop 10 25)))
  	  ;FIXME
  	  ((string-equal procura-str "melhor.alternativa") (setf internal-problema (converte-para-estado-interno job-shop-problem #'heuristica-tempo-final-v2))
  							   (setf result (beam-search internal-problema 10 25)))
  