没有实现方法d::协议规范：#'schema.core/Schema

Question

我写了一个宏

(defmacro defendpoint [msg-type url-key schema]
  `(defrecord ~msg-type []
     Create
     (create [entity#]
       (s/validate ~schema entity#)
       (create-entity (~url-key urls) entity#))))

我就这样用着它

(defendpoint Location :locations
  {... my schema ...}})

(defendpoint LocationHierarchy :location-hierarchies
  {... my schema ...}})

我第一次使用宏时，它就工作了

(create  (map->Location
          {... data ...}))

=> { ... json response ...}

但第二次，它失败了：

(create  (map->LocationHierarchy
          {... data ...}))

=> 1. Unhandled java.lang.IllegalArgumentException
 No implementation of method: :spec of protocol:
 #'schema.core/Schema found for class: ohds.client$fn__32303

我不知道为什么会这样。我希望第二个调用将以与第一个调用相同的方式工作，但在验证步骤中似乎存在错误。事实上，如果我删除（s/validate…） 从宏中，它按预期工作。所以我不确定这里到底发生了什么。

我已经创建了一个要点，显示了我正在处理的整个文件




Answer 1

刚刚发生在我身上。原来我有一个引用自己的deschema：

(s/defschema Templates {:templates [Templates]
                        :error     s/Bool})

而不是正确的参考：

(s/defschema Templates {:templates [Template]
                        :error     s/Bool})

Answer 2

我将讲述我是如何解决我的问题的，希望这个方法能帮助别人。

tl； dr

;; Wrong:
(def date-schema (s/both s/Str #(re-matches #"my-regex" %)))
;; Right:
(def date-schema (s/both s/Str (s/pred #(re-matches #"my-regex" %))))

方法

我从错误开始：没有实现方法d::协议规范：#'schema.core/Schema找到类：ohds.client$fn__32303

起初我不确定这意味着什么。：协议规范：让我大吃一惊。但是我确实看到它提到了schema.core/Schema，所以我阅读了源代码。我发现模式是一个带有方法规范的协议，就像错误所说的：/

下一个让人困惑的部分是类的：ohds。客户端$fn\uu 32303。我想知道为什么我的命名空间需要实现该协议。那没有任何意义。然后我注意到$fn_32303。这告诉我在某个地方有一个lambda错误！

在这一点上，我的假设是我的模式有问题。因此，我从我的模式中删除了所有特殊验证，并在所有地方使用s/Str来查看它是否有效。是的，所以我在正确的位置！我添加了特殊的验证，一次一个，直到测试再次失败。问题出在我的约会模式中。

我查看了上面定义的模式，看看有什么不同。在那里，我注意到我没有将lambda包装在s/pred中。

道德

Clojure设计得很好，所以错误消息会准确地告诉您哪里出了问题。你只需要理解它。