From 13f4f5d2304e0f20d171e5b680eb4748c69d0e66 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Fri, 30 Oct 2009 22:36:59 +0100
Subject: Fix MetaWeblog implementation.

Ignore-this: a56defd5c34127a91100da93ced7f443

darcs-hash:61dec3c4094c40ae5b7e20d76e3bba54d20b2f49
---
 xml-rpc-functions.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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))
-- 
cgit v1.2.3