688 |
RETURN1(make_fixnum(table->ht.ht_size)); |
RETURN1(make_fixnum(table->ht.ht_size)); |
689 |
} |
} |
690 |
|
|
691 |
|
DEFUN_NEW("HASH-TABLE-REHASH-SIZE",object,fLhash_table_rehash_size,LISP,1,1,NONE,OO,OO,OO,OO,(object table),"") |
692 |
|
{ |
693 |
|
check_type_hash_table(&table); |
694 |
|
RETURN1(table->ht.ht_rhsize); |
695 |
|
} |
696 |
|
|
697 |
|
DEFUN_NEW("HASH-TABLE-REHASH-THRESHOLD",object,fLhash_table_rehash_threshold,LISP,1,1,NONE,OO,OO,OO,OO,(object table),"") |
698 |
|
{ |
699 |
|
check_type_hash_table(&table); |
700 |
|
RETURN1(table->ht.ht_rhthresh); |
701 |
|
} |
702 |
|
|
703 |
|
|
704 |
|
|
705 |
void |
void |