Palabra clave programática Common Lisp

Question

¿Hay alguna función en Common Lisp que tome una cadena como argumento y devuelva una palabra clave?

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

Answer 1

Aquí hay una función make-keyword que empaqueta el proceso de creación de palabras clave (intern ing de un nombre en el paquete KEYWORD). :-)

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

Answer 2

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

Véase el Strings section del Common Lisp Cookbook para otras conversiones cadena/de símbolos y una discusión detallada de los símbolos y los paquetes.

Answer 3

Las respuestas dadas al tiempo que más o menos correcta, no producen una solución correcta a la pregunta de ejemplo.

considerar:

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

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

NIL 

Por lo general, desea aplicar CADENA-upcase a la cadena antes de la internación que, por lo tanto:

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

Answer 4

hay una función make-keyword en la biblioteca Alexandria, aunque sí preservar el estuche para obtener exactamente lo que desea, primero tendrá que guardar la cadena.

Answer 5

En este ejemplo también se ocupa de las cadenas con espacios (sustituyéndolos por puntos):

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