[cxml-cvs] CVS update: cxml/xml/xml-parse.lisp

[David Lichteblau]

Update of /project/cxml/cvsroot/cxml/xml
In directory common-lisp.net:/tmp/cvs-serv13276/xml

Modified Files:
	xml-parse.lisp 
Log Message:
*patsch* -- noch ein eof erschlagen

Date: Sun Nov 27 20:31:19 2005
Author: dlichteblau

Index: cxml/xml/xml-parse.lisp
diff -u cxml/xml/xml-parse.lisp:1.38 cxml/xml/xml-parse.lisp:1.39
--- cxml/xml/xml-parse.lisp:1.38	Sun Nov 27 20:28:46 2005
+++ cxml/xml/xml-parse.lisp	Sun Nov 27 20:31:19 2005
@@ -3293,9 +3293,11 @@
 
 (defun read-att-value-2 (input)
   (let ((delim (read-rune input)))
+    (when (eql delim :eof)
+      (eox input))
     (unless (member delim '(#/\" #/\') :test #'eql)
       (wf-error "Bad attribute value delimiter ~S, must be either #\\\" or #\\\'."
-             (rune-char delim delim)))
+             (rune-char delim)))
     (with-rune-collector-4 (collect)
       (loop
         (let ((c (read-rune input)))