summaryrefslogtreecommitdiff
path: root/lisp/hash.c
diff options
context:
space:
mode:
authorPaulo Cesar Pereira de Andrade <pcpa@mandriva.com.br>2008-03-11 21:48:58 -0300
committerPaulo Cesar Pereira de Andrade <pcpa@mandriva.com.br>2008-07-02 19:05:34 -0300
commitcb30367f10f2e38065d336d331afdc50900de76d (patch)
tree9b78cc1191b3e14cdbe325d47185d42e82c93788 /lisp/hash.c
parent953664369cc66ba17c7b9c1939fd9d7f6c6137ad (diff)
Generic lisp interface bug fixes including:
o Allow calling disassemble in all function types o Don't limit amount of bytes to generate a hash table o Allow "unreadable" symbol names to be keywords
Diffstat (limited to 'lisp/hash.c')
-rw-r--r--lisp/hash.c2
1 files changed, 0 insertions, 2 deletions
diff --git a/lisp/hash.c b/lisp/hash.c
index 5959330..a6b91ec 100644
--- a/lisp/hash.c
+++ b/lisp/hash.c
@@ -153,8 +153,6 @@ LispHashKey(LispObj *object, int function)
case LispString_t:
string = THESTR(object);
length = STRLEN(object);
- if (length > 32)
- length = 32;
for (i = 0, key = 0; i < length; i++)
key = (key << 1) ^ string[i];
break;