summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2009-10-30 22:36:59 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2009-10-30 22:36:59 +0100
commit13f4f5d2304e0f20d171e5b680eb4748c69d0e66 (patch)
tree7044a2d6d931f9e14075b13b2aea57c606e38ca1
parentb6bc70d732ac6f3e608fef6d0b295fa9a32e7369 (diff)
Fix MetaWeblog implementation.
Ignore-this: a56defd5c34127a91100da93ced7f443 darcs-hash:61dec3c4094c40ae5b7e20d76e3bba54d20b2f49
-rw-r--r--xml-rpc-functions.lisp2
1 files changed, 1 insertions, 1 deletions
diff --git a/xml-rpc-functions.lisp b/xml-rpc-functions.lisp
index bda05c1..7deefdb 100644
--- a/xml-rpc-functions.lisp
+++ b/xml-rpc-functions.lisp
@@ -49,7 +49,7 @@
(declare (ignore username password))
(with-slots (title date body categories last-modification id uuid)
(find-entry postid)
- (xml-rpc-struct :CATEGORIES (mapcar #'uuid-of categories)
+ (xml-rpc-struct :CATEGORIES (map 'vector #'uuid-of categories)
:pubDate (xml-rpc-time date)
:GUID uuid
:DESCRIPTION (htmlise-entry (find-entry postid))