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 2013-06-11 17:47:10.000000000 +0000
+++ new-Oh, Ducks!/selectors.lisp 2013-06-11 17:47:10.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 2013-06-11 17:47:10.000000000 +0000
+++ new-Oh, Ducks!/traversal/dom.lisp 2013-06-11 17:47:10.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 2013-06-11 17:47:10.000000000 +0000
+++ new-Oh, Ducks!/traversal/pt.lisp 2013-06-11 17:47:10.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