[cxml-cvs] CVS update: cxml/xml/space-normalizer.lisp

[David Lichteblau]

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