 
 (defn key-exists-without-binding-clause->rhs-match
   [message clause]
-  (let [key     (key-exists-without-binding-clause-key clause)]
-    `[]))
+  `[])
 
 (defn path-exists-with-binding-clause->rhs-match
   [message clause]


(defn path-matches-without-binding-clause->rhs-match
  [message clause]
  (let [path        (path-matches-without-binding-clause-path clause)
        match-value (matcher-default-value (path-matches-without-binding-clause-matcher clause))]
    `[]))

(defn matcher->value
  "Takes a `matcher` and returns the value/s it matches on.


(defn path-exists-without-binding-clause->rhs-match
  [message clause]
  `[])

(defn key-matches-with-binding-clause->rhs-match
  [message clause]
