Compilação de bytes de um pacote com vários arquivos: “sabe-se que a função não está definida”

Imagine que eu tenho os seguintes arquivos no meu pacote (ridículo):

Arquivo test1.el:

;;; test1.el ---                                   

;;; Code:

(defvar test-var1)

(defun test-fun1 (test)
  nil)

(require 'test2 "./test2.el)

(provide 'test1)
;;; test1.el ends here

Arquivo test2.el:

;;; test2.el ---  

;;; Code:

(defun test-fun2 ()
  (let ((test test-var1))
    (test-fun1 test)))

(provide 'test2)
;;; test2.el ends here

Se então eu corro:

emacs -batch -f batch-byte-compile *.el

Eu recebo o seguinte resultado:

Compiling .../test1.el...
Wrote .../test1.elc
Compiling .../test2.el...

In test-fun2:
test2.el:9:15:Warning: reference to free variable `test-var1'

In end of data:
test2.el:14:1:Warning: the function `test-fun1' is not known to be defined.
Wrote .../test2.elc

Entendo por que esses avisos aparecem e entendo que são apenas avisos. No entanto, seria fácil perder um erro de digitação no nome de uma função ignorando todos os avisos desse tipo.

De alguma forma, pensei que adicionar uma (require 'test2)linha test2.eldeveria corrigi-lo. No entanto, neste caso, recebo:

Compiling .../test1.el...

In toplevel form:
test1.el:10:1:Error: Recursive `require' for feature `test2'
Compiling .../test2.el...

In toplevel form:
test2.el:5:1:Error: Recursive `require' for feature `test1'

Isso é enigmático, porque pensei que o objetivo requireera exatamente evitar carregamento recursivo. Eu suponho que requireesteja se comportando como loaddurante o tempo de compilação.

Qual é uma maneira boa (e segura) de se livrar desses avisos?

O manual fornece uma solução alternativa (eu a coloco como uma resposta melhor do que nada abaixo), mas, no final das contas, gostaria que a solução fosse bastante automática (não exigindo que eu listasse todas as funções e variáveis ​​necessárias em cada arquivo).

A solução ideal seria incorporada no emacs ou fornecida com o Cask. Se não existir, aceitarei o que está disponível, é claro.

Sobre exigir

requirenão se destina a evitar carregamento recusado, mas sim para evitar carregamento repetitivo . Então não, isso não resolve o seu problema aqui.

Sobre o problema

A maneira correta de abordar isso (na minha opinião) seria evitar a dependência mútua.

O test1arquivo no seu exemplo não tem motivos para exigir test2. Mesmo que isso não seja verdade para o seu pacote real, talvez você possa reprojetar como está delegando código entre os arquivos. Em geral, é possível evitar a dependência mútua entre seus arquivos.

Soluções alternativas

1. Se a dependência mútua não puder ser evitada, o manual menciona uma solução. Você precisará adicionar linhas como as seguintes para cada função / variável necessária.

   (declare-function test-fun1 "./test1.el")
   (defvar test-var1)
   

2. Outra opção é requireos arquivos apenas condicionalmente. Adicione algo assim ao arquivo 1:

   (defvar test1-is-loading t)
   (unless (and (boundp 'test2-is-loading)
                test2-is-loading)
     (require 'test2))
   

   E algo assim para arquivar 2:

   (defvar test2-is-loading t)
   (unless (and (boundp 'test1-is-loading)
                test1-is-loading)
     (require 'test1))
   

Seu exemplo é estranho:

• Você requiretest2 no final do test1, enquanto requireque "sempre" deve estar no início de um arquivo.
• Seu test1 não chama nenhuma função test2; portanto, não precisa do test2 para funcionar (portanto, requireé desnecessário); e OTOH seu test2 chama as funções test1, portanto, precisa do test1, mas falha requirenele.

Como você requireestá atrasado.

O manual sugere adição declare-functione defvarlinhas.

O test2arquivo resultante é:

;;; test2.el ---  

;;; Code:

(declare-function test-fun1 "./test1.el")
(defvar test-var1)

(defun test-fun2 ()
  (let ((test test-var1))
    (test-fun1 test)))

(provide 'test2)
;;; test2.el ends here

No entanto, isso precisa ser feito para todas as funções e todas as variáveis ​​definidas nos arquivos "principais".