Sat Jan  2 08:38:38 UTC 2010  pix@kepibu.org
  * &allow-other-keys is not actually necessary
diff -rN -u old-Oh, Ducks!/templates.lisp new-Oh, Ducks!/templates.lisp
--- old-Oh, Ducks!/templates.lisp	2015-11-19 01:48:11.000000000 +0000
+++ new-Oh, Ducks!/templates.lisp	2015-11-19 01:48:11.000000000 +0000
@@ -45,7 +45,7 @@
                                          :css-specifiers rest
                                          :parent selector))))))
 
-(defmethod initialize-instance :after ((template css-selector-template) &key css-specifiers parent &allow-other-keys)
+(defmethod initialize-instance :after ((template css-selector-template) &key css-specifiers parent)
   (let* ((spec (template-spec template))
          (specifiers-and-vars (or css-specifiers (if (%spec-includes-opts spec)
                                                      (cddr spec)
diff -rN -u old-Oh, Ducks!/unify.lisp new-Oh, Ducks!/unify.lisp
--- old-Oh, Ducks!/unify.lisp	2015-11-19 01:48:11.000000000 +0000
+++ new-Oh, Ducks!/unify.lisp	2015-11-19 01:48:11.000000000 +0000
@@ -2,7 +2,7 @@
 
 (defmethod unify ((a css-selector-template) (b css-selector-template)
                   &optional (env (make-empty-environment))
-                  &key &allow-other-keys)
+                  &key)
   (declare (ignore env))
   (error 'unification-failure
          :format-control "Do not know how to unify the two css-selector-templates ~S and ~S."
@@ -10,7 +10,7 @@
 
 (defmethod unify ((template css-selector-template) document
                   &optional (env (make-empty-environment))
-                  &key &allow-other-keys)
+                  &key)
   (declare (optimize debug))
   (loop :for (css-specifier . template) :in (specifiers template)
         :do (typecase template
@@ -55,15 +55,15 @@
 
 (defmethod unify (document (template css-selector-template)
                   &optional (env (make-empty-environment))
-                  &key &allow-other-keys)
+                  &key)
   (unify template document env))
 
 (defmethod unify ((template css-selector-template) (document string)
                   &optional (env (make-empty-environment))
-                  &key &allow-other-keys)
+                  &key)
   (unify template (funcall (slot-value template 'parser) document) env))
 
 (defmethod unify ((template css-selector-template) (document pathname)
                   &optional (env (make-empty-environment))
-                  &key &allow-other-keys)
+                  &key)
   (unify template (funcall (slot-value template 'parser) document) env))