Nombres de funciones como cadenas en Lisp?

Question

Tengo una gran lista de variables globales que cada una tiene su propia función de configuración. Mi objetivo es revisar esta lista, llamar a la función de configuración de cada elemento y generar algunas estadísticas sobre los datos cargados en la variable correspondiente. Sin embargo, lo que estoy intentando ahora no funciona y necesito ayuda para que mi programa llame a las funciones de configuración.

Las variables globales y sus funciones de configuración distinguen entre mayúsculas y minúsculas ya que provienen de XML y son necesarias para la exclusividad.

Los datos se ve algo como esto:

'(ABCD ABC\d AB\c\d ...) 

y las funciones de configuración de este aspecto:

(defun setup_ABCD... 
(defun setup_ABC\d... 

He intentado concatenar juntos y girando la cadena resultante en una función, pero esto interfiere con el espacio de nombres de la función de configuración previamente cargada. Así es como he tratado de poner en práctica lo siguiente:

(make-symbol (concatenate 'string "setup_" (symbol-name(first '(abc\d))))) 

Pero el uso de funcall en esto no funciona. ¿Cómo puedo obtener una función invocable de esto?

Answer 1

Es porque MAKE-SYMBOL devuelve un símbolo no identificado. Deberías usar INTERN en su lugar.

Answer 2

Utilizaría INTERN o (posiblemente, debería tener perfil para estar 100% seguro de que es útil) una función auxiliar que realiza la concatenación de cadenas y el hallazgo inicial, luego almacena el resultado en una tabla hash (clave fuera del símbolo original). Eso puede ser más rápido que una solución de INTERNO/CONCATENATO pura, potencialmente generaría menos basura transitoria, pero probablemente terminaría usando más almacenamiento a largo plazo.

Algo a lo largo de las líneas de:

 
(defvar *symbol-function-map* (make-hash-table)) 

(defun lookup-symbol (symbol) 
    (or (gethash symbol *symbol-function-map*) 
     (let ((function-name (intern (concatenate 'string "setup_" (symbol-name symbol))))) 
     (setf (gethash symbol *symbol-function-map*) (symbol-function function-name))))) 

Si necesita el nombre de la función, en lugar de la propia función, dejar de lado la llamada a symbol-function.

Answer 3

(funcall (read-from-string (concatenate 'string "setup_" (symbol-name(first '(abc\d)))))) 

funciona también.