[elephant-cvs] CVS elephant/src/elephant

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)