[elephant-cvs] CVS elephant/src/elephant

[ieslick]

Update of /project/elephant/cvsroot/elephant/src/elephant
In directory clnet:/tmp/cvs-serv17228

Modified Files:
	collections.lisp 
Log Message:
Fix for map-indexed-index bug - I was too aggressive on error checks

--- /project/elephant/cvsroot/elephant/src/elephant/collections.lisp	2007/03/22 19:46:17	1.16
+++ /project/elephant/cvsroot/elephant/src/elephant/collections.lisp	2007/03/23 16:10:42	1.17
@@ -350,8 +350,6 @@
     (persistent (<= (oid a) (oid b)))))
 
 (defun lisp-compare-eq (a b)
-  (assert (eq (type-of a) (type-of b)))
-  (assert (member (type-of a) '(number string persistent null) :test #'subtypep))
   (eq a b))
 
 (defmethod map-index (fn (index btree-index) &rest args &key start end)