anchor.diff:  
   		;determinar qual o tempo de funcionamento maximo de uma maquina ate agora
   		(dotimes (nr-maquina n-maquinas)
  -			(let ((tempo-actual (aref tempos-maquinas nr-maquina 0)))
  +			(let ((tempo-actual (aref tempos-maquinas 0 nr-maquina)))
   				(if (and (not (null tempo-actual)) (> tempo-actual max-time-machine))
   					(setf max-time-machine tempo-actual))))
   
  
positive.code: (defun beam-search (problema beam-width max-beam-width) 
    (let* ((*nos-gerados* 0)
  		 (*nos-expandidos* 0)
  		 (tempo-inicio (get-internal-run-time))
  		 (objectivo? (problema-objectivo? problema))
  		 (heur (problema-heuristica problema))
  		 ;(estado= (problema-estado= problema))
  
negative.code:                          (lanca-sonda (nth (random num-elem) sucessores))))))))
               (loop while (null result) do
                 (setf result (lanca-sonda (problema-estado-inicial problema))))
               (return-from sondagem-iterativa result))))
  