;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Jun 2001
;;;;
-;;;; $Id: pubmed.lisp,v 1.1 2002/10/26 17:06:07 kevin Exp $
+;;;; $Id: pubmed.lisp,v 1.2 2002/10/31 02:01:07 kevin Exp $
;;;;
;;;; This file, part of cl-pubmed, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
"Return a string of publication data for an article"
(let ((pubdata ""))
(awhen (pub-date art)
- (string-append pubdata (format nil "~a; " :it)))
+ (string-append pubdata (format nil "~a; " it)))
(awhen (volume art)
- (string-append pubdata :it))
+ (string-append pubdata it))
(awhen (issue art)
- (string-append pubdata (format nil "(~a)" :it)))
+ (string-append pubdata (format nil "(~a)" it)))
(awhen (pages art)
- (string-append pubdata (format nil ":~a" :it)))
+ (string-append pubdata (format nil ":~a" it)))
pubdata))
(defmethod disp-articleset ((artset pmarticleset) &key (os *standard-output*) (format :text)
(title art)
(list-to-delimited-string (authors art) ", ")
(aif (affiliation art)
- (format nil "~a~%" :it) "")
+ (format nil "~a~%" it) "")
(journal art) (pmarticle-pubdata art)
(if (abstract art)
(if complete
(volume article) (xml-tag-contents "Volume" xmlstr ji-start ji-end)
(issue article) (xml-tag-contents "Issue" xmlstr ji-start ji-end))
(aif (xml-tag-contents "MedlineDate" xmlstr ji-start ji-end)
- (setf (pub-date article) :it)
+ (setf (pub-date article) it)
(setf (pub-date article)
(concatenate 'string (xml-tag-contents "Year" xmlstr ji-start ji-end)
(aif (xml-tag-contents "Month" xmlstr ji-start ji-end)
- (format nil " ~a" :it)
+ (format nil " ~a" it)
"")))))
(multiple-value-bind (al-start al-end al-next)
(defun extract-mesh-heading (xmlstr start end)
"Extract and format mesh headings from XML string"
- (let ((desc (xml-tag-contents "Descriptor" xmlstr start end))
+ (let ((desc (xml-tag-contents "DescriptorName" xmlstr start end))
(sh (xml-tag-contents "SubHeading" xmlstr start end)))
(if sh
(format nil "~a(~a)" desc sh)