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)))