anchor.diff:                           (lanca-sonda (nth (random num-elem) sucessores))))))))
                (loop while (null result) do
                  (setf result (lanca-sonda (problema-estado-inicial problema))))
  -             (return-from sondagem-iterativa solucao))))
  +             (return-from sondagem-iterativa result))))
  
positive.code: 
  		;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)))
  				(if (and (not (null tempo-actual)) (> tempo-actual max-time-machine))
  					(setf max-time-machine tempo-actual))))
  
  
negative.code: 				  (if (< beam-width max-beam-width)
  					(incf beam-width)
  				      (return-from beam-search result))
  				  (when (<= (- tempo (/ (- (get-internal-real-time) tempo-inicio) internal-time-units-per-second)) 0.2)
  				      (return-from beam-search result)))))))
  
  ;;;;;;;;;;;;;
  