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