diff options
| -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)) |