Mon Nov 23 11:54:01 UTC 2009  pix@kepibu.org
  * Cut out a few warnings from cl-unification
diff -rN -u old-Oh, Ducks!/traversal/dom.lisp new-Oh, Ducks!/traversal/dom.lisp
--- old-Oh, Ducks!/traversal/dom.lisp	2015-10-04 17:45:34.000000000 +0000
+++ new-Oh, Ducks!/traversal/dom.lisp	2015-10-04 17:45:34.000000000 +0000
@@ -1,5 +1,8 @@
 (in-package #:oh-ducks.traversal)
 
+(defmethod unify::occurs-in-p ((var symbol) (pat dom:element) env)
+  nil)
+
 (defmethod oh-ducks::find-matching-elements (selector (element dom:document))
   (oh-ducks::find-matching-elements selector (dom:document-element element)))
 
diff -rN -u old-Oh, Ducks!/traversal/pt.lisp new-Oh, Ducks!/traversal/pt.lisp
--- old-Oh, Ducks!/traversal/pt.lisp	2015-10-04 17:45:34.000000000 +0000
+++ new-Oh, Ducks!/traversal/pt.lisp	2015-10-04 17:45:34.000000000 +0000
@@ -1,5 +1,8 @@
 (in-package #:oh-ducks.traversal)
 
+(defmethod unify::occurs-in-p ((var symbol) (pat chtml:pt) env)
+  nil)
+
 ;;; general accessors
 
 (defmethod element-children ((element chtml:pt))