diff options
author | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-12-07 22:57:01 +0100 |
---|---|---|
committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-12-07 22:57:01 +0100 |
commit | e858718332d44fa570282d8b4ba25abf22626853 (patch) | |
tree | 17409ae26eb46d886875e21752403bf994b1b24e | |
parent | abfa322078ebcfec9d94ad66e0521ce816967cf3 (diff) |
metaWeblog.getRecentPosts: Return the list of journal entries in ascending order from oldest to newest.
Ignore-this: ac5a80e0cc8480ebe09d406a48b92545
darcs-hash:2a5425441acd6b5840bd0f49ee145c3f16f033ee
-rw-r--r-- | xml-rpc-functions.lisp | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/xml-rpc-functions.lisp b/xml-rpc-functions.lisp index ef8fd23..ac50c7b 100644 --- a/xml-rpc-functions.lisp +++ b/xml-rpc-functions.lisp @@ -82,7 +82,11 @@ (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 -1 (- (or (find-largest-post-id) 0) number-of-posts)) + (loop for post-id from (max 0 + (+ (- (or (find-largest-post-id) 0) + number-of-posts) + 1)) + to (or (find-largest-post-id) -1) collect (mulk.journal.xml-rpc::metaWeblog.getPost post-id username password))) (defun mulk.journal.xml-rpc::blogger.getUsersBlogs (appkey username password) |