Uses Pattern Matching

Sample rules

((match '(you feel (* x)) s)

(format t "I SOMETIMES FEEL THE SAME WAY.~%") )

((match '(because (* x)) s)

(format t "IS THAT REALLY THE REASON.~%") )

((setq b (match '(you have (* x)) s))

(print-q (append '(how long have you had) (val 'x b) )) )

Previous slide

Next slide

Back to first slide

View graphic version