[cl-unification-devel] Newbie Question on logic and CL-UNIFICATION

I'm looking for a (very) simple tool for doing prolog style logical deduction in common lisp. This is just for managing tasks and creating an advanced todo list based on rules. Currently PaiProlog breaks and I don't have the time to read all of PIA to understand what, ether me or it are doing wrong.

As an example of what I'm trying to do:

(<- (PRODUCER ?X) (TOOL ?X)) (<- (tool "emacs"))

(?- (producer "emacs")) Yes

(do-all (?- (producer ?x))

Firstly, should I be using CL-Unification for this?

Secondly, does CL-Unification support this already?

Finally, a simple example of how to do this would be wonderful.