OSCL/CXML
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ich sag nur: 'foo

Browse Source
This commit is contained in:
dlichteblau
2005-11-27 19:28:45 +00:00
parent ab0a676042
commit e3f0eefe1d
2 changed files with 12 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
xml/xml-parse.lisp
View File

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