 (defn compile-log-message
   [fct-name binding-vec]
   (let [bindings (bindings->bound-vars binding-vec)]
-    `(log-enter-message
+    `(log-symbol-values
        ~(log-prefix fct-name)
        (quote ~bindings)
        ~bindings)))

;; Macros can help address operational constraints
;; --------------------------------------------------------

(defn log-enter-message
  "Returns the log message for the function and its arguments"
  [log-prefix arg-names arg-values]
  (str log-prefix (zipmap arg-names arg-values)))

(defn bindings->bound-vars
  "Clean the bindings to remove the restructuring artifacts"

    ))


;; (set! *warn-on-reflection* true)
;; (set! *unchecked-math* :warn-on-boxed)


