Fonctions prédéfinies générées automatiquement avec les macros Common Lisp

Question

Les macros peuvent créer des fonctions dans la portée globale. Par exemple:

(defmacro test-macro (&body functions) 
`(progn ,@(loop for function in functions 
       collect `(defun ,function() 
          *some-interesting-thing*)))) 

Un autre exemple (quoique avec des méthodes) serait les accesseurs générés automatiquement pour une classe CLOS.

Les fonctions ne sont pas définies au moment de l'expansion de la macro, mais plutôt lorsque le code généré est compilé/interprété. Cela peut causer quelques difficultés. Si ces fonctions sont attendues, un avertissement sera émis. Quelle est la manière idiomatique de définir ces fonctions avant qu'elles ne soient correctement définies? Une solution possible pourrait être la suivante:

(defmacro test-macro (&body functions) 
    (macrolet ((empty-function (name) 
       `(defun ,name()))) 
    (dolist (function functions) 
     (empty-function function))) 
    `(progn ,@(loop for function in functions 
       collect `(defun ,function() 
          *some-interesting-thing*)))) 

Notez que la fonction intermédiaire est définie au cours du temps d'expansion macro.

Answer 1

Si vous devez définir une fonction au moment de la compilation sur le premier niveau, puis utilisez:

(eval-when (:compile-toplevel) 
    (defun foo ...)) 

Notez que vous pouvez définir une macro qui génère un tel code. Une telle forme peut faire partie d'un PROGN.