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-10 11:36:32.000000000 +0000 +++ new-Oh, Ducks!/traversal/dom.lisp 2015-10-10 11:36:32.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-10 11:36:32.000000000 +0000 +++ new-Oh, Ducks!/traversal/pt.lisp 2015-10-10 11:36:32.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))