Mon Nov 23 11:38:12 UTC 2009 pix@kepibu.org

* No longer needed

--- old-Oh, Ducks!/selectors.lisp 2013-11-28 18:03:26.000000000 +0000

+++ new-Oh, Ducks!/selectors.lisp 2013-11-28 18:03:26.000000000 +0000

@@ -101,7 +101,6 @@

(every (curry #'element-matches-p element) selector))

(defmethod element-matches-p (element (selector child-combinator))

- (format t "cc:: el: ~s, s: ~s~%" (element-parent element) selector)

(element-matches-p (element-parent element) (matcher selector)))

(defmethod element-matches-p (element (selector descendant-combinator))

--- old-Oh, Ducks!/unify.lisp 2013-11-28 18:03:26.000000000 +0000

+++ new-Oh, Ducks!/unify.lisp 2013-11-28 18:03:26.000000000 +0000

@@ -8,18 +8,6 @@

:format-control "Do not know how to unify the two css-selector-templates ~S and ~S."

:format-arguments (list a b)))

-(defun merge-environments (env1 env2)

- (assert (or (unify::empty-environment-p env1)

- (equal (unify::environment-variables env1)

- (unify::environment-variables env2))))

- (format t "ev1: ~s, ev2: ~s~%" (unify::environment-values env1) (unify::environment-values env2))

- (format t "q: ~s~%" (unify::find-variable-value '?i env1))

- (unify::fill-environment (unify::environment-variables env1)

- (mapcar (lambda (a b) (format t "a: ~s, b: ~s~%" a b) (append a b))

- (unify::environment-values env1)

- (unify::environment-values env2))

- (make-empty-environment)))

-

(defmethod unify ((template css-selector-template) document

&optional (env (make-empty-environment))

&key &allow-other-keys)