Mon Nov 23 13:19:59 UTC 2009 pix@kepibu.org

* Fail unification if no match for a selector

--- old-Oh, Ducks!/tests.lisp 2015-10-29 06:10:02.000000000 +0000

+++ new-Oh, Ducks!/tests.lisp 2015-10-29 06:10:02.000000000 +0000

@@ -53,7 +53,7 @@

"<div>I do <i>not</i> <i>like</i> cheese.</div><div><span>I like <i>cheese</i>.</span></div>")

(values div i))

-#+FIXME ;; should throw 'unification-failure

+;; throws 'unification-failure

(match (#T(html (:model dom)

("q" . ?div))

"<div>I do <i>not</i> <i>like</i> cheese.</div><div><span>I like <i>cheese</i>.</span></div>")