Mon Jan 4 00:11:25 UTC 2010 pix@kepibu.org

* Rename some functions to better match CSS terminology

--- old-Oh, Ducks!/unify.lisp 2015-11-23 07:04:55.000000000 +0000

+++ new-Oh, Ducks!/unify.lisp 2015-11-23 07:04:55.000000000 +0000

@@ -23,7 +23,7 @@

(val (cond

((terminating-implicit-sibling-combinator-p css-specifier)

;; search remaining siblings

- (find-matching-elements-in-list

+ (subjects-in-list

css-specifier

(rest

(member document

@@ -38,9 +38,9 @@

;;; exactly show up all that well. Somebody might assume " b" was the same as

;;; "b" and get confused.

((ignore-errors (element-parent document)) ; bleh. element-parent breaks lhtml nodes

- (find-matching-elements-in-list css-specifier (element-children document)))

+ (subjects-in-list css-specifier (element-children document)))

;; root element includes itself

- (t (find-matching-elements css-specifier document)))))

+ (t (subjects-of css-specifier document)))))

(cond

((null val)

(error 'unification-failure