Thu Dec 3 02:41:36 UTC 2009 pix@kepibu.org
* Better messages
diff -rN -u old-Oh, Ducks!/selectors.lisp new-Oh, Ducks!/selectors.lisp
--- old-Oh, Ducks!/selectors.lisp 2015-10-08 15:02:03.000000000 +0000
+++ new-Oh, Ducks!/selectors.lisp 2015-10-08 15:02:03.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)
diff -rN -u old-Oh, Ducks!/unify.lisp new-Oh, Ducks!/unify.lisp
--- old-Oh, Ducks!/unify.lisp 2015-10-08 15:02:03.000000000 +0000
+++ new-Oh, Ducks!/unify.lisp 2015-10-08 15:02:03.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)