- (article-pmid article) (parse-integer (xml-tag-contents "PMID" xmlstr a-start))
- (article-title article) (xml-tag-contents "ArticleTitle" xmlstr a-start)
- (article-journal article) (xml-tag-contents "MedlineTA" xmlstr a-start)
- (article-pages article) (xml-tag-contents "MedlinePgn" xmlstr a-start)
- (article-affiliation article) (xml-tag-contents "Affiliation" xmlstr a-start)
- (article-abstract article) (xml-tag-contents "AbstractText" xmlstr a-start))
+ (article-pmid article) (parse-integer (xml-tag-contents "PMID" xmlstr a-start a-end))
+ (article-title article) (xml-tag-contents "ArticleTitle" xmlstr a-start a-end)
+ (article-journal article) (xml-tag-contents "MedlineTA" xmlstr a-start a-end)
+ (article-pages article) (xml-tag-contents "MedlinePgn" xmlstr a-start a-end)
+ (article-affiliation article) (xml-tag-contents "Affiliation" xmlstr a-start a-end)
+ (article-abstract article) (xml-tag-contents "AbstractText" xmlstr a-start a-end))