Thu Dec  3 03:26:59 UTC 2009  pix@kepibu.org
  * declare ignored variables
diff -rN -u old-Oh, Ducks!/selectors.lisp new-Oh, Ducks!/selectors.lisp
--- old-Oh, Ducks!/selectors.lisp	2015-10-18 22:36:43.000000000 +0000
+++ new-Oh, Ducks!/selectors.lisp	2015-10-18 22:36:43.000000000 +0000
@@ -135,6 +135,7 @@
 	  :test #'string=))
 
 (defmethod element-matches-p (element (selector universal-selector))
+  (declare (ignore element selector))
   t)
 
 (defmethod element-matches-p (element (selector list))
diff -rN -u old-Oh, Ducks!/traversal/dom.lisp new-Oh, Ducks!/traversal/dom.lisp
--- old-Oh, Ducks!/traversal/dom.lisp	2015-10-18 22:36:43.000000000 +0000
+++ new-Oh, Ducks!/traversal/dom.lisp	2015-10-18 22:36:43.000000000 +0000
@@ -1,6 +1,7 @@
 (in-package #:oh-ducks.traversal)
 
 (defmethod unify::occurs-in-p ((var symbol) (pat dom:element) env)
+  (declare (ignore var pat env))
   nil)
 
 (defmethod oh-ducks::find-matching-elements (selector (element dom:document))
diff -rN -u old-Oh, Ducks!/traversal/pt.lisp new-Oh, Ducks!/traversal/pt.lisp
--- old-Oh, Ducks!/traversal/pt.lisp	2015-10-18 22:36:43.000000000 +0000
+++ new-Oh, Ducks!/traversal/pt.lisp	2015-10-18 22:36:43.000000000 +0000
@@ -1,6 +1,7 @@
 (in-package #:oh-ducks.traversal)
 
 (defmethod unify::occurs-in-p ((var symbol) (pat chtml:pt) env)
+  (declare (ignore var pat env))
   nil)
 
 ;;; general accessors