( deftemplate Bus ( slot size ) ( slot color ) )
(defrule test (or ( Bus ( size "big" ) (color ?c) )( Bus ( size "big" ) (color ?c) ) ) =>
(printout t "color - " ?c crlf) ) (assert (Bus (size "big") (color "red") ) ) (run) ----------------- Jess> (clear) TRUE Jess> (batch "rule1.clp") color - red color - red 2
