[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory clnet:/tmp/cvs-serv10677

Modified Files:
	hash-tables.lisp 
Log Message:
Add hash-table-size.


--- /project/movitz/cvsroot/movitz/losp/muerte/hash-tables.lisp	2008/04/17 19:34:08	1.14
+++ /project/movitz/cvsroot/movitz/losp/muerte/hash-tables.lisp	2008/04/27 09:10:04	1.15
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Mon Feb 19 19:09:05 2001
 ;;;;                
-;;;; $Id: hash-tables.lisp,v 1.14 2008/04/17 19:34:08 ffjeld Exp $
+;;;; $Id: hash-tables.lisp,v 1.15 2008/04/27 09:10:04 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -50,6 +50,10 @@
      :sxhash sxhash
      :count 0)))
 
+(defun hash-table-size (hash-table)
+  (values (truncate (length (hash-table-bucket hash-table))
+		    2)))
+
 (defun hash-table-iterator (bucket index)
   (when index
     (let ((index (check-the (index 2) index)))