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-09-08 04:01:59.000000000 +0000
+++ new-Oh, Ducks!/selectors.lisp	2015-09-08 04:01:59.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-09-08 04:01:59.000000000 +0000
+++ new-Oh, Ducks!/unify.lisp	2015-09-08 04:01:59.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)