[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

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

Modified Files:
	hash-tables.lisp 
Log Message:
Support equalp hashing.


--- /project/movitz/cvsroot/movitz/losp/muerte/hash-tables.lisp	2005/08/26 19:38:50	1.11
+++ /project/movitz/cvsroot/movitz/losp/muerte/hash-tables.lisp	2006/04/07 21:52:36	1.12
@@ -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.11 2005/08/26 19:38:50 ffjeld Exp $
+;;;; $Id: hash-tables.lisp,v 1.12 2006/04/07 21:52:36 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -42,7 +42,8 @@
 	       test)
 	(eq (values #'eq #'sxhash-eq))
 	(eql (values #'eql #'sxhash-eql))
-	(equal (values #'equal #'sxhash)))
+	(equal (values #'equal #'sxhash))
+	(equalp (values #'equalp #'sxhash)))
     (make-hash-table-object
      :test test
      :bucket (make-array (* 2 size) :initial-element '--no-hash-key--)