anchor.diff:                     (:numero "Número total"))
                    (string-downcase grupo)))))
   
  -(defun dados-comvest-arquivos (diretorio anos &key (linhas :cursos) (tipo :porcentagem))
  +(defun dados-comvest-arquivos (diretorio anos &key (linhas :cursos) (tipo :porcentagem)
  +                               questoes)
     (dolist (ano (ensure-list anos))
       (with-open-file (file (make-pathname :name
                                            (string-downcase
  
positive.code:                                                   ano linhas tipo))
                                           :defaults diretorio)
                            :direction :output :if-exists :supersede)
        (dados-comvest ano :linhas linhas :tipo tipo :stream file))))
  
negative.code:            (loop for try from 0
                for response =
                  (handler-case
                      (bt:with-timeout (5)
                        (http-request
                         (format
                          nil
                          "http://www.comvest.unicamp.br/estatisticas/~d/quest/quest2.php"
                          ano)
                         :method :post
                         :form-data t
                         :parameters `(("opcao" . ,curso)
                                       ("cid_inscricao" . ,cidade)
                                       ("questao" . ,questao)
                                       ("grupo" . ,grupo))))
                    (error (c)
                      (if (>= try +maximum-retries+)
                          (error c))))
  