[Add select-only{-n-objects}* functions
clinton@unknownlamer.org**20090724042918
 Ignore-this: 4172bd20a74abc996238b9009e5968d3
 * Identical to non-* functions except that they take an offset argument
 * Implement non-* functions by calling * versions with NIL for offset
] {
hunk ./src/db-access-object-sql.lisp 15
-(defun select-only-n-objects (n type &rest query)
+(defun select-only-n-objects* (n offset type &rest query)
hunk ./src/db-access-object-sql.lisp 37
-			 ,n))))
+			 ,n ,offset))))
hunk ./src/db-access-object-sql.lisp 43
+(defun select-only-n-objects (n type &rest query)
+    (apply #'select-only-n-objects* n nil type query))
+
hunk ./src/packages.lisp 18
+   #:select-only*
hunk ./src/packages.lisp 23
+   #:select-only-n-objects*
hunk ./src/rofl.lisp 100
-(s-sql::def-sql-op :case (&rest clausese)
+(s-sql::def-sql-op :case (&rest clauses)
hunk ./src/rofl.lisp 124
-(defun select-only (num &rest query)
-  (let ((results (%query `(:limit ,(cons :select query) ,num))))
-    (if (eql 1 num)
+(defun select-only* (limit offset &rest query)
+  (let ((results (%query `(:limit ,(cons :select query) ,limit ,offset))))
+    (if (eql 1 limit)
hunk ./src/rofl.lisp 130
+(defun select-only (num &rest query)
+  (apply #'select-only* num nil query))
+
}