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@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)))