anchor.diff:             (loop for try from 0
                 for response =
                   (handler-case
  -                    (bt:with-timeout (+timeout-time+)
  +                    (bt:with-timeout (*timeout-time*)
                         (http-request
                          (format
                           nil
  
positive.code: (defvar *dados-coletados*)
  (defvar *respostas-questoes*)
  (defvar *totais-por-grupo*)
  (defconstant +maximo-questoes+ 20)
  (defconstant +maximum-retries+ 10)
  (defconstant +retry-time+ 0.5)
  (defconstant +timeout-time+ 30)
  
  (defun dados-comvest-single (ano curso cidade n-linha questao n-questao grupo n-grupo)
    (let* ((texto
  
negative.code:                                      ("questao" . ,questao)
                                       ("grupo" . ,grupo))))
                    (error (c)
                      (if (>= try *maximum-retries*)
                          (error c)
                          (sleep *retry-time*))))
                until response finally (return response))))
           (dados
            (loop for (start end register-start register-end)
  