Small, obvious cleanup to import-posts.

This commit is contained in:
Brit Butler 2011-04-17 17:41:16 -04:00
parent 853a6d690c
commit d04bbb3bc0

View file

@ -57,4 +57,4 @@ them into *storage*. The method to parse the file is determined by SERVICE."))
(defmethod import-posts ((service (eql :wordpress)) filepath)
(let* ((xml (cxml:parse-file filepath (cxml-dom:make-dom-builder)))
(posts (dom:get-elements-by-tag-name xml "item")))
(loop for post across posts do (import-post :wordpress post))))
(loop for post across posts do (import-post service post))))