Mon Nov 23 11:38:12 UTC 2009  pix@kepibu.org
  * No longer needed
diff -rN -u old-Oh, Ducks!/selectors.lisp new-Oh, Ducks!/selectors.lisp
--- old-Oh, Ducks!/selectors.lisp	2013-11-19 18:51:06.000000000 +0000
+++ new-Oh, Ducks!/selectors.lisp	2013-11-19 18:51:06.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))
diff -rN -u old-Oh, Ducks!/unify.lisp new-Oh, Ducks!/unify.lisp
--- old-Oh, Ducks!/unify.lisp	2013-11-19 18:51:06.000000000 +0000
+++ new-Oh, Ducks!/unify.lisp	2013-11-19 18:51:06.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)