diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-10-30 22:36:59 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-10-30 22:36:59 +0100 |
| commit | 13f4f5d2304e0f20d171e5b680eb4748c69d0e66 (patch) | |
| tree | 7044a2d6d931f9e14075b13b2aea57c606e38ca1 /xml-rpc-functions.lisp | |
| parent | b6bc70d732ac6f3e608fef6d0b295fa9a32e7369 (diff) | |
Fix MetaWeblog implementation.
Ignore-this: a56defd5c34127a91100da93ced7f443
darcs-hash:61dec3c4094c40ae5b7e20d76e3bba54d20b2f49
Diffstat (limited to 'xml-rpc-functions.lisp')
| -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 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)) |