[elephant-cvs] CVS elephant/src/elephant

Update of /project/elephant/cvsroot/elephant/src/elephant In directory clnet:/tmp/cvs-serv1234/src/elephant Modified Files: collections.lisp Log Message: Documentation edits; edi's lispworks patch to ele build --- /project/elephant/cvsroot/elephant/src/elephant/collections.lisp 2007/04/12 02:47:32 1.21 +++ /project/elephant/cvsroot/elephant/src/elephant/collections.lisp 2007/04/19 05:24:37 1.22 @@ -344,7 +344,8 @@ (etypecase a (number (<= a b)) (string (string<= a b)) - (persistent (<= (oid a) (oid b))))) + (persistent (<= (oid a) (oid b))) + (symbol (string<= (symbol-name a) (symbol-name b))))) (defun lisp-compare-equal (a b) (equal a b)) @@ -381,7 +382,7 @@ (funcall fn k v) (return nil))))))))) -(defgeneric map-index (fn btree &rest args &key start end value) +(defgeneric map-index (fn index &rest args &key start end value) (:documentation "Map-index is like map-btree but for secondary indices, it takes a function of three arguments: key, value and primary key. As with map-btree the keyword arguments start and end
participants (1)
-
ieslick