Revert "Clean up attributes before passing them to SAX"
authorDavid Lichteblau <david@lichteblau.com>
Wed, 15 Jun 2011 12:14:42 +0000 (15 14:14 +0200)
committerDavid Lichteblau <david@radon.(none)>
Wed, 15 Jun 2011 12:14:42 +0000 (15 14:14 +0200)
src/parse/html-parser.lisp

index a264004..1fdd457 100644 (file)
 ;;;                (merge-pathnames (or pathname (pathname input))))))
        (parse-xstream xstream handler)))))
 
-(defun good-attribute-name-p (name)
-  (and (cxml::valid-name-p name)
-       (not (or (string-equal name "xmlns")
-               (position #\: name)))))
-
 (defun serialize-pt-attributes (plist recode)
   (loop
      for (name value) on plist by #'cddr
-     for n = #+rune-is-character (coerce (symbol-name name) 'rod)
-            #-rune-is-character (symbol-name name)
-     ;; don't emit as HAX what would be bogus as SAX anyway
-     if (good-attribute-name-p n)
+     unless
+       ;; better don't emit as HAX what would be bogus as SAX anyway
+       (string-equal name "xmlns")
      collect
-     (let ((v (etypecase value
+     (let* ((n #+rune-is-character (coerce (symbol-name name) 'rod)
+              #-rune-is-character (symbol-name name))
+           (v (etypecase value
                 (symbol (coerce (string-downcase (symbol-name value)) 'rod))
                 (rod (funcall recode value))
                 (string (coerce value 'rod)))))