Fri Dec 4 04:47:58 UTC 2009 pix@kepibu.org

* Make descendant combinators work with an implicit parent

--- old-Oh, Ducks!/unify.lisp 2015-11-22 23:05:44.000000000 +0000

+++ new-Oh, Ducks!/unify.lisp 2015-11-22 23:05:44.000000000 +0000

@@ -18,7 +18,8 @@

(css-selector-template

(unify template document env))

(t

- (let ((val (find-matching-elements css-specifier document)))

+ (let* ((*effective-root* document)

+ (val (find-matching-elements css-specifier document)))

(cond

((null val)

(error 'unification-failure