From 254a3fcec1e8f877d5a4a7808918eea46e8c0874 Mon Sep 17 00:00:00 2001 From: dlichteblau Date: Thu, 29 Dec 2005 00:39:25 +0000 Subject: [PATCH] oops --- xml/space-normalizer.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/xml/space-normalizer.lisp b/xml/space-normalizer.lisp index d4c9c14..2d03aae 100644 --- a/xml/space-normalizer.lisp +++ b/xml/space-normalizer.lisp @@ -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))))