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 2013-07-24 10:33:16.000000000 +0000
+++ new-Oh, Ducks!/traversal/dom.lisp 2013-07-24 10:33:16.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