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

oops

Browse Source
This commit is contained in:
dlichteblau
2005-12-29 00:39:25 +00:00
parent 3e4d382940
commit 254a3fcec1
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
xml/space-normalizer.lisp
View File

@ -29,9 +29,9 @@
(let ((xml-space (let ((xml-space
(sax:find-attribute (if (stringp qname) "xml:space" #"xml:space") (sax:find-attribute (if (stringp qname) "xml:space" #"xml:space")
attrs))) attrs)))
(push (print(if xml-space (push (if xml-space
(rod= (rod (sax:attribute-value xml-space)) #"default") (rod= (rod (sax:attribute-value xml-space)) #"default")
(car (xml-space-attributes handler)))) (car (xml-space-attributes handler)))
(xml-space-attributes handler))) (xml-space-attributes handler)))
(let* ((e (cxml::find-element (rod qname) dtd)) (let* ((e (cxml::find-element (rod qname) dtd))
(cspec (when e (cxml::elmdef-content e)))) (cspec (when e (cxml::elmdef-content e))))