185 |
int depth; |
int depth; |
186 |
{ |
{ |
187 |
|
|
188 |
return make_fixnum(ihash_equal(x,length)); |
return make_fixnum(ihash_equal(x,depth)); |
189 |
|
|
190 |
} |
} |
191 |
|
|
516 |
RETURN1(sLnil); |
RETURN1(sLnil); |
517 |
} |
} |
518 |
|
|
519 |
DEFUN("HASH-TABLE-SIZE",object,fLhash_table_size,LISP,1,1,NONE,IO,OO,OO,OO,"") |
DEFUN("HASH-TABLE-SIZE",object,fLhash_table_size,LISP,1,1,NONE,OO,OO,OO,OO,"") |
520 |
(table) |
(table) |
521 |
object table; |
object table; |
522 |
{ |
{ |
546 |
make_function("HASH-TABLE-COUNT", Lhash_table_count); |
make_function("HASH-TABLE-COUNT", Lhash_table_count); |
547 |
make_function("SXHASH", Lsxhash); |
make_function("SXHASH", Lsxhash); |
548 |
make_si_sfun("HASH-EQUAL",hash_equal,ARGTYPE2(f_object,f_fixnum) |
make_si_sfun("HASH-EQUAL",hash_equal,ARGTYPE2(f_object,f_fixnum) |
549 |
| RESTYPE(f_fixnum)); |
| RESTYPE(f_object)); |
550 |
make_si_function("HASH-SET", siLhash_set); |
make_si_function("HASH-SET", siLhash_set); |
551 |
} |
} |