anchor.diff:                              +maximo-questoes+)
                         :initial-element (cons "" ""))))
       (when report
  -      (format *trace-output* "DADOS-COMVEST: Iniciando extração de dados Comvest (~A) ~%" ano))
  +      (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*
  
positive.code:            (loop for try from 0
                for response =
                  (handler-case
                      (bt:with-timeout (5)
                        (http-request
                         (format
                          nil
  
negative.code:                                      ("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)
  