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 2013-07-22 15:42:59.000000000 +0000
+++ new-Oh, Ducks!/traversal/dom.lisp 2013-07-22 15:42:59.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 2013-07-22 15:42:59.000000000 +0000
+++ new-Oh, Ducks!/traversal/pt.lisp 2013-07-22 15:42:59.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))