Update of /project/cxml/cvsroot/cxml/xml In directory common-lisp.net:/tmp/cvs-serv7711/xml
Modified Files: space-normalizer.lisp Log Message: oops
Date: Thu Dec 29 01:39:25 2005 Author: dlichteblau
Index: cxml/xml/space-normalizer.lisp diff -u cxml/xml/space-normalizer.lisp:1.1 cxml/xml/space-normalizer.lisp:1.2 --- cxml/xml/space-normalizer.lisp:1.1 Thu Dec 29 01:31:36 2005 +++ cxml/xml/space-normalizer.lisp Thu Dec 29 01:39:25 2005 @@ -29,9 +29,9 @@ (let ((xml-space (sax:find-attribute (if (stringp qname) "xml:space" #"xml:space") attrs))) - (push (print(if xml-space + (push (if xml-space (rod= (rod (sax:attribute-value xml-space)) #"default") - (car (xml-space-attributes handler)))) + (car (xml-space-attributes handler))) (xml-space-attributes handler))) (let* ((e (cxml::find-element (rod qname) dtd)) (cspec (when e (cxml::elmdef-content e))))