Using string object as a hash key in Common Lisp

问题

I'm trying to create a "dictionary" type - ie hash table with a string as a key. Is this possible or wise in Lisp?

I noticed that this works as expected:

> (setq table (make-hash-table))
#<HASH-TABLE :TEST EQL size 0/60 #x91AFA46>
> (setf (gethash 1 table) "one")
"one"
> (gethash 1 table)
"one"

However, the following does not:

> (setq table (make-hash-table))
#<HASH-TABLE :TEST EQL size 0/60 #x91AFA0E>
> table
#<HASH-TABLE :TEST EQL size 0/60 #x91AFA0E>
> (setf (gethash "one" table) 1)
1
> (gethash "one" table)
NIL
NIL

回答1:

You need to make hash-table that uses 'equal instead if 'eql. 'eql doesn't evaluate two strings with same content to 't, while 'equal does.

Here is how you do it:

(make-hash-table :test 'equal)

As skypher noted you can also use 'equalp instead if you want case-insensitive string hashing.

来源：https://stackoverflow.com/questions/1409069/using-string-object-as-a-hash-key-in-common-lisp