Common Lisp: taquigrafía para inicializar una tabla hash con muchas entradas

Question

estoy en busca de una manera portátil, posiblemente, no detallado para inicializar una tabla hash en Common Lisp. P.ej. algo que funciona para tablas hash constantes, pero también para precargar hash variables. En CLISP estoy usando:

(defconstant +my-map+ #S(HASH-TABLE :TEST FASTHASH-EQ 
    (key1 . "value1") 
    ... 
    (keyN . "valueN") 
)) 

pero desafortunadamente este formato sólo funciona en CLISP.

Answer 1

se puede construir mediante programación una tabla hash en tiempo de lectura:

(defvar *ht* #.(let ((ht (make-hash-table))) 
       (loop for (key . value) in 
         '((a . 1) (b . 2) (c . 3)) 
         do (setf (gethash key ht) value)) 
       ht)) 

(describe *ht*) 

#. se utiliza para la evaluación del tiempo de lectura. El compilador volcará la tabla hash al archivo FASL.

Esto entonces se puede compilar:

Usando SBCL:

* (compile-file "/tmp/test.lisp") 

; compiling file "/private/tmp/test.lisp" (written 24 MAY 2012 10:08:49 PM): 
; compiling (DEFVAR *HT* ...) 
; compiling (DESCRIBE *HT*) 

; /tmp/test.fasl written 
; compilation finished in 0:00:00.360 
#P"/private/tmp/test.fasl" 
NIL 
NIL 
* (load *) 

#<HASH-TABLE :TEST EQL :COUNT 3 {100299EA43}> 
    [hash-table] 

Occupancy: 0.2 
Rehash-threshold: 1.0 
Rehash-size: 1.5 
Size: 16 
Synchronized: no 
T 
* *ht* 

#<HASH-TABLE :TEST EQL :COUNT 3 {100299EA43}> 

Creación de una tabla hash como una función:

(defun create-hashtable (alist 
         &key (test 'eql) 
         &aux (ht (make-hash-table :test test))) 
    (loop for (key . value) in alist 
     do (setf (gethash key ht) value)) 
    ht) 

Answer 2

Alexandria tiene la función alist-hash-table, que puede serle útil.