silently delete xmlns attributes in HAX events
authorDavid Lichteblau <david@lichteblau.com>
Sun, 23 Mar 2008 18:28:50 +0000 (23 19:28 +0100)
committerDavid Lichteblau <david@radon.(none)>
Sun, 23 Mar 2008 18:28:50 +0000 (23 19:28 +0100)
src/parse/html-parser.lisp

index 578a910..1160293 100644 (file)
 (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))