Mon Nov 23 13:14:00 UTC 2009 pix@kepibu.org

* Error when unable to parse CSS selector

--- old-Oh, Ducks!/selectors.lisp 2015-10-02 16:51:06.000000000 +0000

+++ new-Oh, Ducks!/selectors.lisp 2015-10-02 16:51:06.000000000 +0000

@@ -64,7 +64,9 @@

(#T(regexp$ "(\\w+)" (?type))

(cons (make-instance 'type-selector :arg type) (parse-selector &rest)))

(#T(regexp$ "\\*" ())

- (cons (make-instance 'universal-selector) (parse-selector &rest)))))

+ (cons (make-instance 'universal-selector) (parse-selector &rest)))

+ (t (unless (string= selector "")

+ (error "Unable to to parse selector: ~s" selector)))))

(defgeneric find-matching-elements (selector element)

(:method (selector (element t))