Common Lisp：多くのエントリを持つハッシュテーブルを簡略化する

Question

Common Lispでハッシュテーブルを初期化するための移植性の高い方法を探しています。例えば。定数ハッシュテーブルで動作するものだけでなく、可変ハッシュをあらかじめロードすることもできます。 CLISPでは、私は以下を使用しています：

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

このフォーマットは残念ながらCLISPでしか動作しません。

Answer 1

一つは、プログラムの読み取り時にハッシュテーブルを構築することができます。

(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*) 

#.は、読み出し時間の評価のために使用されます。コンパイラは、ハッシュテーブルをFASLファイルにダンプします。

これは、その後コンパイルすることができます：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}> 

ハッシュテーブルを作成する関数として：

(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には、alist-hash-tableという便利な機能があります。