Sat Dec 5 07:23:38 UTC 2009 pix@kepibu.org * Better method to do this in diff -rN -u old-Oh, Ducks!/traversal/dom.lisp new-Oh, Ducks!/traversal/dom.lisp --- old-Oh, Ducks!/traversal/dom.lisp 2015-10-31 03:05:32.000000000 +0000 +++ new-Oh, Ducks!/traversal/dom.lisp 2015-10-31 03:05:32.000000000 +0000 @@ -4,8 +4,12 @@ (declare (ignore var pat env)) nil) -(defmethod oh-ducks::find-matching-elements (selector (element dom:document)) - (oh-ducks::find-matching-elements selector (dom:document-element element))) +(defmethod unify:unify ((template oh-ducks::css-selector-template) + (document dom:document) + &optional (env (unify:make-empty-environment)) + &key &allow-other-keys) + (unify:unify template (dom:document-element document) env)) + ;;; general accessors