Mot-clé programmatique Common Lisp

Question

Existe-t-il une fonction dans Common Lisp qui prend une chaîne comme argument et renvoie un mot-clé?

Exemple: (keyword "foo") ->:foo

Answer 1

Voici une fonction make-keyword qui empaquette le processus de création de mot-clé (intern d'un nom dans le paquet KEYWORD). :-)

(defun make-keyword (name) (values (intern name "KEYWORD"))) 

Answer 2

(intern "foo" "KEYWORD") -> :foo 

Voir la Strings section du Common Lisp Cookbook pour d'autres conversions chaîne/symbole et une analyse détaillée des symboles et des paquets.

Answer 3

Les réponses données à peu près correctes ne produisent pas une solution correcte à l'exemple de la question.

Tenir compte:

CL-USER(4): (intern "foo" :keyword) 

:|foo| 
NIL 
CL-USER(5): (eq * :foo) 

NIL 

Habituellement vous souhaitez appliquer STRING-UPCASE à la chaîne avant interner il, ainsi:

(defun make-keyword (name) (values (intern (string-upcase name) "KEYWORD"))) 

Answer 4

Il y a une fonction make-keyword dans la bibliothèque Alexandria, bien qu'il Conservez le cas afin d'obtenir exactement ce que vous voulez, vous devrez d'abord monter la ficelle.

Answer 5

Dans cet exemple, il traite aussi des cordes avec des espaces (en les remplaçant par des points):

(defun make-keyword (name) (values (intern (substitute #\. #\space (string-upcase name)) :keyword)))