 
 (defn find-binding-table 
   [app context]
-  (println "find-binding-table:" context)
   (let [context (if (string? context)
                   (find-app-binding-context app context)
                   context)]
-    (println "context: " context)
     (first (filter #(= context (binding-context %)) (binding-tables app)))))
 
 (defn key-binding=spec? 

   data of e"
  [e spec]
  (let [td (transient-data e)]
    (println "td:" td)
    (println "(type td):" (type td))
    (doseq [[k v] (:transient-data spec)]
      (println "[k v]:" k v)
      (.put td k v))))

(def default-cmd-spec

(defn find-key-binding
  "Find Model Key binding based on its fields"
  [app spec]
  (when-let [b-table (find-binding-table app (:context spec))]
    (first (filter #(key-binding=spec? % spec) (bindings b-table)))))

