/[gcl]/gcl/o/hash.d
ViewVC logotype

Diff of /gcl/o/hash.d

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by camm, Tue Jul 30 22:27:52 2002 UTC revision 1.7 by camm, Thu Aug 1 22:15:06 2002 UTC
# Line 185  object x; Line 185  object x;
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    
# Line 516  object table; Line 516  object table;
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  {  {
# Line 546  init_hash() Line 546  init_hash()
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  }  }

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26