*patsch* -- noch ein eof erschlagen

2005-11-27 19:31:18 +00:00
parent e3f0eefe1d
commit afc0d9481b
2 changed files with 6 additions and 14 deletions
--- a/xml/xml-parse.lisp
+++ b/xml/xml-parse.lisp
@ -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)))