[elephant-cvs] CVS elephant/src/elephant

[ieslick]

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