[Add :skip to get-instances-by
clinton@unknownlamer.org**20080111200807
 Currently inefficient but can be improved later easily
] {
hunk ./src/database.lisp 19
-(defgeneric get-instances-limit (class slot-name start end &key limit from-end))
+(defgeneric get-instances-limit (class slot-name start end
+				       &key limit skip from-end))
hunk ./src/database.lisp 23
-				&key limit from-end)
+				&key limit from-end (skip 0))
hunk ./src/database.lisp 25
-		       :limit limit :from-end from-end))
+		       :limit limit :from-end from-end :skip skip))
hunk ./src/database.lisp 28
-				&key limit from-end)
+				&key limit from-end (skip 0))
hunk ./src/database.lisp 30
-		    (make-index-mapper #'elephant::identity2 limit)
+		    (make-index-mapper #'elephant::identity2
+				       (+ limit skip))
hunk ./src/database.lisp 33
-    (handler-case
-	(map-inverted-index mapper
-	 class
-	 slot-name
-	 :start start :end end
-	 :collect t :from-end from-end)
-      (results-limit-reached (c) (values (limit-result c) (limit-count c))))))
+    (nthcdr
+     skip
+     (handler-case
+	 (map-inverted-index mapper
+			     class
+			     slot-name
+			     :start start :end end
+			     :collect t :from-end from-end)
+       (results-limit-reached (c) (values (limit-result c) (limit-count c)))))))
}