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

Modified Files: xml-parse.lisp Log Message: ich sag nur: 'foo

Date: Sun Nov 27 20:28:46 2005 Author: dlichteblau

Index: cxml/xml/xml-parse.lisp diff -u cxml/xml/xml-parse.lisp:1.37 cxml/xml/xml-parse.lisp:1.38 --- cxml/xml/xml-parse.lisp:1.37 Sun Nov 27 19:41:07 2005 +++ cxml/xml/xml-parse.lisp Sun Nov 27 20:28:46 2005 @@ -2752,7 +2752,8 @@ (defun parse-xml-decl (content) (let* ((res (make-xml-header)) (i (make-rod-xstream content)) - (atts (read-attribute-list 'foo i t))) ;xxx on 'foo + (z (make-zstream :input-stack (list i))) + (atts (read-attribute-list z i t))) (unless (eq (peek-rune i) :eof) (wf-error "Garbage at end of XMLDecl.")) ;; versioninfo muss da sein @@ -2808,7 +2809,8 @@ (defun parse-text-decl (content) (let* ((res (make-xml-header)) (i (make-rod-xstream content)) - (atts (read-attribute-list 'foo i t))) ;xxx on 'foo + (z (make-zstream :input-stack (list i))) + (atts (read-attribute-list z i t))) (unless (eq (peek-rune i) :eof) (wf-error "Garbage at end of TextDecl")) ;; versioninfo optional