Thu Dec 3 02:41:36 UTC 2009 pix@kepibu.org

* Better messages

--- old-Oh, Ducks!/selectors.lisp 2013-07-24 10:32:29.000000000 +0000

+++ new-Oh, Ducks!/selectors.lisp 2013-07-24 10:32:29.000000000 +0000

@@ -44,9 +44,10 @@

(let ((selector (template-spec template)))

(setf (slot-value template 'matcher) (parse-selector (string-trim " " selector))))))

-(warn "parse-selector currently relies on a patch which has not only ~

- not been submitted to cl-unification-devel, it has not yet ~

- been copied to penguin.")

+(warn "parse-selector currently relies on a patch which has not yet made ~

+ it in to cl-unification. Be sure to apply the patch from ~

+ <http://common-lisp.net/pipermail/cl-unification-devel/attachments/20091201/d5021e15/attachment.obj> ~

+ to ensure proper functioning of the \"Oh, Ducks!\" library.")

(defun parse-selector (selector)

(match-case (selector)

--- old-Oh, Ducks!/unify.lisp 2013-07-24 10:32:29.000000000 +0000

+++ new-Oh, Ducks!/unify.lisp 2013-07-24 10:32:29.000000000 +0000

@@ -28,7 +28,7 @@

(unify template val env))

((unify::variablep template)

(unify::var-unify template val env))

- (t (error "Don't know what to do with ~s and ~s." css-specifier template)))))))

+ (t (error "Don't know what to do with selector ~s and template ~s." css-specifier template)))))))

env)

(defmethod unify (document (template css-selector-template)