180 |
} |
} |
181 |
|
|
182 |
static object |
static object |
183 |
hash_equal(x,depth) |
FFN(hash_equal)(x,depth) |
184 |
object x; |
object x; |
185 |
int depth; |
int depth; |
186 |
{ |
{ |
372 |
@(return h) |
@(return h) |
373 |
@) |
@) |
374 |
|
|
375 |
void |
LFD(Lhash_table_p)(void) |
|
Lhash_table_p(void) |
|
376 |
{ |
{ |
377 |
check_arg(1); |
check_arg(1); |
378 |
|
|
382 |
vs_base[0] = Cnil; |
vs_base[0] = Cnil; |
383 |
} |
} |
384 |
|
|
385 |
void |
LFD(Lgethash)() |
|
Lgethash() |
|
386 |
{ |
{ |
387 |
int narg; |
int narg; |
388 |
struct htent *e; |
struct htent *e; |
406 |
vs_popp; |
vs_popp; |
407 |
} |
} |
408 |
|
|
409 |
void |
LFD(siLhash_set)() |
|
siLhash_set() |
|
410 |
{ |
{ |
411 |
check_arg(3); |
check_arg(3); |
412 |
|
|
414 |
sethash(vs_base[0], vs_base[1], vs_base[2]); |
sethash(vs_base[0], vs_base[1], vs_base[2]); |
415 |
vs_base += 2; |
vs_base += 2; |
416 |
} |
} |
417 |
|
|
418 |
void |
LFD(Lremhash)() |
|
Lremhash() |
|
419 |
{ |
{ |
420 |
struct htent *e; |
struct htent *e; |
421 |
|
|
432 |
vs_top = vs_base + 1; |
vs_top = vs_base + 1; |
433 |
} |
} |
434 |
|
|
435 |
void |
LFD(Lclrhash)() |
|
Lclrhash() |
|
436 |
{ |
{ |
437 |
int i; |
int i; |
438 |
|
|
445 |
vs_base[0]->ht.ht_nent = 0; |
vs_base[0]->ht.ht_nent = 0; |
446 |
} |
} |
447 |
|
|
448 |
void |
LFD(Lhash_table_count)() |
|
Lhash_table_count() |
|
449 |
{ |
{ |
450 |
|
|
451 |
check_arg(1); |
check_arg(1); |
454 |
} |
} |
455 |
|
|
456 |
|
|
457 |
void |
LFD(Lsxhash)() |
|
Lsxhash() |
|
458 |
{ |
{ |
459 |
check_arg(1); |
check_arg(1); |
460 |
|
|
461 |
vs_base[0] = make_fixnum((ihash_equal(vs_base[0],0) & 0x7fffffff)); |
vs_base[0] = make_fixnum((ihash_equal(vs_base[0],0) & 0x7fffffff)); |
462 |
} |
} |
463 |
|
|
464 |
void |
LFD(Lmaphash)() |
|
Lmaphash() |
|
465 |
{ |
{ |
466 |
object *base = vs_base; |
object *base = vs_base; |
467 |
object hashtable; |
object hashtable; |