anchor.diff:  ; Job Shop aux
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   
  -(defstruct job-schedule 
  -  job-shop-problem
  -  best-schedule)
  +;; (defstruct job-schedule 
  +;;   job-shop-problem
  +;;   best-schedule)
   
    ;Used to propagate time constraint from task precendence and machine precendence
   (defstruct job-task-w-constr
  
positive.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 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)))
  
negative.code: 
  		 (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)))
  