Logo Questions Linux Laravel Mysql Ubuntu Git Menu
 

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
like image 605
Justicle Avatar asked Sep 11 '09 05:09

Justicle


1 Answers

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.

like image 178
freiksenet Avatar answered Sep 23 '22 03:09

freiksenet