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

* &allow-other-keys is not actually necessary

--- old-Oh, Ducks!/templates.lisp 2015-11-29 08:26:08.000000000 +0000

+++ new-Oh, Ducks!/templates.lisp 2015-11-29 08:26:08.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)

--- old-Oh, Ducks!/unify.lisp 2015-11-29 08:26:08.000000000 +0000

+++ new-Oh, Ducks!/unify.lisp 2015-11-29 08:26:08.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))