From 37a3c5ac3af60506f670d838f1f3616a3d6a8203 Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Thu, 31 Oct 2002 20:53:03 +0000
Subject: [PATCH] r3262: *** empty log message ***

---
 pubmed.lisp | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

diff --git a/pubmed.lisp b/pubmed.lisp
index c20d111..88dcb61 100644
--- a/pubmed.lisp
+++ b/pubmed.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Jun 2001
 ;;;;
-;;;; $Id: pubmed.lisp,v 1.3 2002/10/31 19:42:26 kevin Exp $
+;;;; $Id: pubmed.lisp,v 1.4 2002/10/31 20:53:03 kevin Exp $
 ;;;;
 ;;;; This file, part of cl-pubmed, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -119,7 +119,8 @@
 
 (defmethod print-object ((obj pm-article) (s stream))
   (print-unreadable-object (obj s :type t :identity t)
-    (format s "pmid: ~d" (article-pmid obj))))
+    (format s "pmid:~d, title:~S" (article-pmid obj)
+	    (article-title obj))))
 
 (defun article-equal-p (a b)
   (check-type a pm-article)
@@ -290,12 +291,12 @@ XML string of PubMed search results and XML search status"
   "Extract article contents from PubMed XML string and return results in pm-article class"
   (let ((article (make-instance 'pm-article)))
     (setf 
-	(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))
     (multiple-value-bind (ji-start ji-end ji-next)
 	(positions-xml-tag-contents "JournalIssue" xmlstr a-start a-end)
       (declare (ignore ji-next))
-- 
2.34.1