Mon Nov 23 11:36:20 UTC 2009 pix@kepibu.org
* Don't return a dom:document as parent
hunk ./traversal/dom.lisp 11
-(defmethod element-parent ((element dom:document))
- nil)
hunk ./traversal/dom.lisp 12
- (dom:parent-node element))
+ (let ((parent (dom:parent-node element)))
+ (unless (typep parent 'dom:document)
+ parent)))