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

* Better messages

--- old-Oh, Ducks!/selectors.lisp 2015-09-26 22:30:37.000000000 +0000

+++ new-Oh, Ducks!/selectors.lisp 2015-09-26 22:30:37.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)