From 85eb1d6ad73a075f8586fd946ca5165cfdfb650d Mon Sep 17 00:00:00 2001
From: David Lichteblau <david@lichteblau.com>
Date: Sun, 23 Mar 2008 19:28:50 +0100
Subject: [PATCH] silently delete xmlns attributes in HAX events

---
 src/parse/html-parser.lisp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/parse/html-parser.lisp b/src/parse/html-parser.lisp
index 578a910..1160293 100644
--- a/src/parse/html-parser.lisp
+++ b/src/parse/html-parser.lisp
@@ -101,6 +101,9 @@
 (defun serialize-pt-attributes (plist recode)
   (loop
      for (name value) on plist by #'cddr
+     unless
+       ;; better don't emit as HAX what would be bogus as SAX anyway
+       (string-equal name "xmlns")
      collect
      (let* ((n #+rune-is-character (coerce (symbol-name name) 'rod)
 	       #-rune-is-character (symbol-name name))
-- 
2.11.4.GIT