feat: store handler as symbol instead of var

Author: k13gomez

src/main/clojure/clara/rules.clj

@@ -250,19 +250,20 @@
                \"HVAC repairs must include a 27B-6 form.\")))
 
   See the [rule authoring documentation](http://www.clara-rules.org/docs/rules/) for details."
-  [name & body]
+  [rule-name & body]
   (let [doc (if (string? (first body)) (first body) nil)
-        rule (dsl/build-rule name body (meta &form)) ;;; Full rule LHS + RHS
-        rule-action (dsl/build-rule-action name body (meta &form)) ;;; Only the RHS
+        rule (dsl/build-rule rule-name body (meta &form)) ;;; Full rule LHS + RHS
+        rule-action (dsl/build-rule-action rule-name body (meta &form)) ;;; Only the RHS
         rule-node (com/build-rule-node rule-action) ;;; The Node of the RHS
         {:keys [bindings production]} rule-node
-        rule-handler (com/compile-action-handler name bindings
+        rule-handler (com/compile-action-handler rule-name bindings
                                                  (:rhs production)
                                                  (:env production))
-        name-with-meta (vary-meta name assoc :rule true :doc doc)] ;;; The compiled RHS
+        name-with-meta (vary-meta rule-name assoc :rule true :doc doc)
+        handler-name (symbol (name (ns-name *ns*)) (name rule-name))] ;;; The compiled RHS
     `(defn ~name-with-meta
        ([]
-        (assoc ~rule :handler #'~name-with-meta))
+        (assoc ~rule :handler '~handler-name))
        (~@(drop 2 rule-handler)))))
 
 (defmacro defquery

src/main/clojure/clara/rules/compiler.clj

@@ -1531,7 +1531,7 @@
                        (if expr-cache
                          (let [cache-key (str (md5-hash expr) (md5-hash compilation-ctx))
                                compilation-ctx (assoc compilation-ctx :cache-key cache-key)
-                               compiled-handler (some-> compilation-ctx :compile-ctx :production :handler deref)
+                               compiled-handler (some-> compilation-ctx :compile-ctx :production :handler resolve)
                                compiled-expr (or compiled-handler
                                                  (cache/lookup expr-cache cache-key))]
                            (if compiled-expr

src/test/clojure/clara/test_engine.clj

@@ -12,6 +12,7 @@
             [criterium.core :refer [report-result
                                     with-progress-reporting
                                     quick-benchmark]]))
+
 (defrule test-slow-rule-1
   "this rule does some async work using go block"
   [:number [{:keys [value]}]