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)