anchor.diff:                                         (if(equal num-elem 0)
                                              nil
                                            (lanca-sonda (nth (random num-elem) sucessores))))))))
  -                 (unless (null solucao) 
  +                 (loop while (null solucao) do
                      (setf solucao (lanca-sonda (problema-estado-inicial problema))))
                    (return-from sondagem-iterativa (list solucao)))))
  
positive.code: (defun calendarizacao (job-shop-problem procura-str) 
    (let ((internal-problema (converte-para-estado-interno job-shop-problem))
  		(result nil))
  
      (cond ((equal procura-str "ILDS") (ilds internal-problema))
  	  	  ((equal procura-str "Iterative-Sampling") (sondagem-iterativa internal-problema))
  	  	  (t
  	    	(procura internal-problema procura-str)))))
  
  
negative.code:   
    
  (defun optimize-schedule (job-problem)
  
  
    )
  
  (defun estado-objectivo (estado)
  	(let* ((dimensions (array-dimensions estado))
  		 	(rows (car dimensions))
  		 	(columns (cadr dimensions)))
    		(loop for job from 0 to (- rows 1) do
    			(if (loop for task from 0 to (- columns 1) thereis (null (job-shop-task-start.time (job-task-w-constr-job-task (aref estado job task)))))
    					(return-from estado-objectivo nil)
    				)
    			)
    		t
    		)
  	)
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ; Struct aux functions
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  