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


(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-exists-without-binding-clause->rhs-match
  [message clause]
  `[])

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