diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-12-07 22:49:18 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-12-07 22:49:18 +0100 |
| commit | abfa322078ebcfec9d94ad66e0521ce816967cf3 (patch) | |
| tree | 0dd8d67eeae985a3c5d02f6cf956a75da3a02d3b | |
| parent | 610d99e64c02451d7beeeebeb0e29bbdb7d08c17 (diff) | |
metaWeblog.getRecentPosts: Fix an off-by-one error.
Ignore-this: 827898e7987832cfda83a71123c985d5
darcs-hash:9cb2bfadba8cb8922d6cd486d78efcc81d322704
| -rw-r--r-- | xml-rpc-functions.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/xml-rpc-functions.lisp b/xml-rpc-functions.lisp index 6851c84..ef8fd23 100644 --- a/xml-rpc-functions.lisp +++ b/xml-rpc-functions.lisp @@ -82,7 +82,7 @@ (defun mulk.journal.xml-rpc::metaWeblog.getRecentPosts (blogid username password number-of-posts) (declare (ignore blogid)) - (loop for post-id from (or (find-largest-post-id) 0) above (max 0 (- (or (find-largest-post-id) 0) number-of-posts)) + (loop for post-id from (or (find-largest-post-id) 0) above (max -1 (- (or (find-largest-post-id) 0) number-of-posts)) collect (mulk.journal.xml-rpc::metaWeblog.getPost post-id username password))) (defun mulk.journal.xml-rpc::blogger.getUsersBlogs (appkey username password) |