anchor.diff:                                       ("questao" . ,questao)
                                        ("grupo" . ,grupo))))
                     (error (c)
  -                    (if (>= try +maximum-retries+)
  +                    (if (>= try *maximum-retries*)
                           (error c)
  -                        (sleep +retry-time+))))
  +                        (sleep *retry-time*))))
                 until response finally (return response))))
            (dados
             (loop for (start end register-start register-end)
  
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:            (loop for try from 0
                for response =
                  (handler-case
                      (bt:with-timeout (*timeout-time*)
                        (http-request
                         (format
                          nil
  