Crear un nombre de variable a partir de una cadena en Lisp

Estoy tratando de tomar una cadena y convertirla en un nombre de variable. Pensé que (make-symbol) o (interno) haría esto, pero aparentemente no es lo que quiero, o lo estoy usando incorrectamente.Crear un nombre de variable a partir de una cadena en Lisp

Por ejemplo:

> (setf (intern (string "foo")) 5) 
> foo 
    5

Aquí estaría tratando de crear una variable llamada 'foo' con un valor de 5. A excepción, el código anterior me da un error. ¿Cuál es el comando que estoy buscando?

Fuente

2011-03-15 Jeff

Hay una serie de cosas a tener en cuenta aquí:

SETF no evalúa su primer argumento. Espera un símbolo o un formulario que especifique una ubicación para actualizar. Use SET en su lugar.
Dependiendo de la antigüedad y la configuración de su implementación de Common Lisp, los nombres de los símbolos pueden aparecer en mayúsculas por defecto. Por lo tanto, la segunda referencia a foo puede referirse a un símbolo cuyo nombre es "FOO". En este caso, necesitaría usar (intern "FOO").
La llamada a STRING es inofensiva pero innecesaria si el valor ya es una cadena.

Poniendo todo junto, intente esto:

> (set (intern "FOO") 5) 
> foo 
    5

Fuente

2011-03-15 02:36:10 WReach

¡Oye, eso funcionó! Especie de. En realidad, no intento asignar valores usando (establecer) sino usando otra función llamada (add-dm) que no creé. Aparentemente, (add-dm) tiene la misma limitación que (setf), donde la primera expresión no se evalúa, así que tendré que encontrar otra forma. Pero eso arrojó algo de luz sobre las cosas, ¡así que gracias! (Además, me doy cuenta de que (cadena) es innecesario, aunque mi objetivo final es crear un símbolo a partir de cadenas concatenadas, así que lo guardé por si hiciera una diferencia). – Jeff

@Jeff Si 'ADD-DM' es una macro, podría expandirse a una función exportada que se puede usar de la misma manera que' SET '. Intente inspeccionar el resultado de '(macroexpand-1 '(add-dm ...))' para ver si tiene suerte. – WReach

SET no es necesario. –

Uso:

CL-USER 7 > (setf (SYMBOL-VALUE (INTERN "FOO")) 5) 
5 

CL-USER 8 > foo 
5

Esto también funciona con una variable:

CL-USER 11 > (let ((sym-name "FOO")) 
       (setf (SYMBOL-VALUE (INTERN sym-name)) 3)) 
3 

CL-USER 12 > foo 
3

Recuerde también que, por defecto los símbolos se crean internamente como mayúsculas. Si desea acceder a un símbolo a través de una cadena, debe usar una cadena en mayúscula.

Fuente

2011-03-15 21:17:47

Crear un nombre de variable a partir de una cadena en Lisp

Respuesta

Cuestiones relacionadas