;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Jun 2001
;;;;
-;;;; $Id: pubmed.lisp,v 1.6 2002/10/31 21:37:56 kevin Exp $
+;;;; $Id: pubmed.lisp,v 1.7 2002/11/06 19:36:53 kevin Exp $
;;;;
;;;; This file, part of cl-pubmed, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
:reader pubmed-query-error-response))
(:report (lambda (c stream)
(format stream "A PubMed server error occurred.")
- (awhen (pubmed-server-query-response c)
+ (awhen (pubmed-query-error-response c)
(format stream " The server response was:~&~S" it)))))
;;; Article-Set and Article Classes