Partage des symboles Lisp à travers les paquets

Question

J'ai une fonction foo définie dans un package my-package:

(in-package :my-package) 
(defun foo (a) 
    (if (eql a 'value1) 
    (do-this) 
    (do-the-other))) 

Quand j'appelle cette fonction à partir d'un autre paquet que je dois qualifier le paramètre avec le nom du package:

(in-package :cl-user) 
(my-package:foo 'my-package::value1) 

mais c'est plutôt moche. Je veux partager le symbole value1 avec tous les autres paquets. J'ai trouvé une solution de contournement qui consiste à importer le symbole value1, mais cela ne fonctionne que s'il a déjà été défini dans l'autre paquet. Une autre possibilité est de passer des chaînes, "value1", mais encore une fois, ce n'est qu'un patch. Quel est le meilleur moyen de partager des symboles entre paquets? Merci pour votre aide.

Answer 1

Utilisez un symbole mot-clé, que vous pouvez toujours écrire sans nommer son emballage keyword:

(foo:bar :value1) 

symboles de mots-clés sont dans le paquet KEYWORD, évaluent eux-mêmes, sont automatiquement exportés et que vous n'avez pas besoin notez le nom du paquet.

Puisqu'un symbole de mot-clé s'évalue à lui-même, vous n'avez même pas à les citer - mais vous le pouvez.

(foo:bar ':value1) 

Alternative: noms de paquets courts

Parfois, il peut être utile d'avoir un symbole dans un emballage spécifique. Ensuite, j'utiliserais un nom de package court, que vous pouvez également définir comme pseudonyme. Voir les options sur DEFPACKAGE. Par exemple le paquet color-graphics pourrait avoir le surnom cg.

Puis on écrirait:

(foo:bar 'cg:green) 

Comme il est un symbole normal, vous devez citer, sinon ce serait une variable.