anchor.diff:  				      (setf solucao aux-solucao)
   				     (if (better-solution aux-solucao solucao)
   					 	(setf solucao aux-solucao)))
  -				  (when (<= (- tempo (/ (- (get-internal-real-time) tempo-inicio) internal-time-units-per-second)) 0.2)
  +				  (when (<= (- tempo (/ (- (get-internal-run-time) tempo-inicio) internal-time-units-per-second)) 0.2)
   				      (return-from beam-search solucao)))))))
   
   ;;;;;;;;;;;;;
  
positive.code: (defun sorter (heur)
    "Return a combiner function that sorts according to heuristic."
    #'(lambda (new old)
        (sort (append new old) #'< :key heur)))
  
  
  (defun beam-search (problema beam-width) 
    (let* ((*nos-gerados* 0)
  		 (*nos-expandidos* 0)
  
negative.code: 		 (heur (problema-heuristica problema))
  		 ;(estado= (problema-estado= problema))
  
  		 (solucao 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 solucao))
  				    ((funcall objectivo? (first estados)) (list (first estados)))
                      ((null (first estados)) nil)
                      (t 
                       (let* ((sucessores-estado (problema-gera-sucessores problema (first estados)))
                              (sucessores-ordenados (funcall (beam-sorter beam-width heur) sucessores-estado (rest estados)));sucessores ate' beam width
                              )
  			  (return-from beam (beam sucessores-ordenados)))))))
               (loop 
  				(let* ((aux-solucao nil))
  				  (setf aux-solucao (beam (list (problema-estado-inicial problema))))
  