Sat Jan 2 08:38:38 UTC 2010 pix@kepibu.org

* &allow-other-keys is not actually necessary

--- old-Oh, Ducks!/unify.lisp 2015-12-05 10:03:29.000000000 +0000

+++ new-Oh, Ducks!/unify.lisp 2015-12-05 10:03:29.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))