anchor.diff:                                       ("grupo" . ,grupo))))
                     (error (c)
                       (if (>= try +maximum-retries+)
  -                        (error c))))
  +                        (error c)
  +                        (sleep +retry-time+))))
                 until response finally (return response))))
            (dados
             (loop for (start end register-start register-end)
  
positive.code:            (loop for try from 0
                for response =
                  (handler-case
                      (bt:with-timeout (5)
                        (http-request
                         (format
                          nil
  
negative.code:                             +maximo-questoes+)
                        :initial-element (cons "" ""))))
      (when report
        (format *trace-output* "DADOS-COMVEST: Iniciando extração de dados Comvest (~A) ~%"
                ano))
      (loop for (curso) in *cursos-comvest*
         for n-curso from 0 do
           (loop for (cidade) in *cidades-comvest*
  