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