anchor.diff:  (in-package :user)
   (load (compile-file "procura.lisp"))
   (load (compile-file "job-shop-problemas-modelos.lisp"))
  +(load (compile-file "job-shop-problemas-v1.lisp"))
   
   
   (defun calendarizacao (job-shop-problem procura-str) 
     (let ((internal-problema (converte-para-estado-interno job-shop-problem))
   		(result nil))
  -    (cond ((equal procura-str "ILDS") (return-from calendarizacao (ilds internal-problema)))
  -	  	  ((equal procura-str "Iterative-Sampling") (return-from calendarizacao (sondagem-iterativa internal-problema)))
  +    (cond ((string-equal procura-str "ILDS") (setf result (ilds internal-problema 100)))
  +	  	  ((string-equal procura-str "Iterative-Sampling") (setf result (sondagem-iterativa internal-problema)))
   	  	  (t
  -	    	(procura internal-problema procura-str)))))
  +	    	(setf result (procura internal-problema procura-str))))
  +    result))
   
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
positive.code:   job-task
    virtual-time)
    
  (defun converte-para-visualizacao (estado-interno)
    ) 
  
  
negative.code: 		    (setf (aref estado-inicial job task-nr) job-task-wrapper)))))
  
  	 ;inicializacao de precedencias
  	(loop for job from 0 to (- n.jobs 1) do
  	 	(loop for task from 1 to (- (list-length (job-shop-job-tasks (nth job jobs))) 1) do
  		    (let*  ((job-w-constr (aref estado-inicial job task))
  			   		(job-w-constr-before (aref estado-inicial job (- task 1)))
  			   		(job-task-before (job-task-w-constr-job-task job-w-constr-before))
  			   		(virtual-time-before (job-task-w-constr-virtual-time job-w-constr-before))
  			   		(duration-before (job-shop-task-duration job-task-before)))
  	      		(setf (job-task-w-constr-virtual-time job-w-constr) (+ virtual-time-before duration-before)))))
  
  	(cria-problema estado-inicial operadores :objectivo? #'estado-objectivo)))
    
  
  (defun proxima-tarefa (estado job)
  