fact_type_fn_example.clj

user> (require 'clara.test-rules)
nil
user> (in-ns 'clara.test-rules)
#namespace[clara.test-rules]
clara.test-rules> (defquery query1
                    "Doc here"
                    []
                    [?fact <- :a])
#'clara.test-rules/query1
clara.test-rules> (-> (mk-session [query1] :fact-type-fn :clara-fact-type)
                      (insert {:clara-fact-type :a :some-other-key :some-other-val})
                      fire-rules
                      (query query1))
                      
({:?fact {:clara-fact-type :a, :some-other-key :some-other-val}})
clara.test-rules> (-> (mk-session [query1])
                      (insert {:clara-fact-type :a :some-other-key :some-other-val})
                      fire-rules
                      (query query1))
                      
()
clara.test-rules>