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