anchor.diff:  
   (defun is-better-solution (heur)
         #'(lambda (best-solution-so-far new-solution)
  -	    (> (funcall heur (first new-solution)) (funcall heur (first best-solution-so-far)))))
  +	    (< (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)
  
positive.code:         (result nil))
      
      (labels ((ildsProbe (estado maxDiscrepancia rProfundidade)
                  (let* ((sucessores (problema-gera-sucessores problema estado))
                         (num-elem (list-length sucessores)))
                       (cond 	((funcall objectivo? estado) (list estado))
                       		((= 0 num-elem) nil)
  
negative.code:   (let ((internal-problema nil)
  		(result nil))
      (cond ((string-equal procura-str "ILDS") (setf internal-problema (converte-para-estado-interno job-shop-problem #'heuristica-tempo-final-v2))
  					     (setf result (ilds internal-problema 100)))
  	  ((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 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)))
  	  ;FIXME
  	  ((string-equal procura-str "a*.melhor.heuristica") (setf internal-problema (converte-para-estado-interno job-shop-problem #'heuristica-tempo-final-v2))
  							     (setf result (procura internal-problema "a*" :espaco-em-arvore? T)))
  	  (t		;FIXME
  	    	 (setf internal-problema (converte-para-estado-interno job-shop-problem #'heuristica-tempo-final-v2))
  	    	 (setf result (procura internal-problema "a*" :espaco-em-arvore? T))))
      (if (not (null result))
      	(if (not (listp (car result)))
      		(converte-para-visualizacao (car result))
  