Mon Nov 30 04:10:09 UTC 2009  pix@kepibu.org
  * Fix bug in element-children for sgml:pt model
diff -rN -u old-Oh, Ducks!/traversal/pt.lisp new-Oh, Ducks!/traversal/pt.lisp
--- old-Oh, Ducks!/traversal/pt.lisp	2015-09-06 13:22:46.000000000 +0000
+++ new-Oh, Ducks!/traversal/pt.lisp	2015-09-06 13:22:46.000000000 +0000
@@ -6,15 +6,14 @@
 ;;; general accessors
 
 (defmethod element-children ((element chtml:pt))
-  (remove-if (rcurry #'member '(:pcdata :comment) :test #'eq)
+  (remove-if (compose (rcurry #'member '(:pcdata :comment) :test #'eq) #'chtml:pt-name)
              (chtml:pt-children element)))
 
 (defmethod element-parent ((element chtml:pt))
   (chtml:pt-parent element))
 
 (defmethod element-attribute ((element-attribute symbol) (element chtml:pt))
-  (unless (eq :pcdata (chtml:pt-name element))
-    (getf (chtml:pt-attrs element) element-attribute)))
+  (getf (chtml:pt-attrs element) element-attribute))
 (defmethod element-attribute ((element-attribute string) (element chtml:pt))
   (element-attribute (intern (string-upcase element-attribute) :keyword) element))