5

我正在尝试在一个单独的文件中定义一个多方法及其实现。它是这样的:在文件 1 中

(ns thing.a.b)
(defn dispatch-fn [x] x)
(defmulti foo dispatch-fn)

在文件 2

(ns thing.a.b.c
  (:require [thing.a.b :refer [foo]])
(defmethod foo "hello" [s] s)
(defmethod foo "goodbye" [s] "TATA")

在主文件中,当我调用该方法时,我定义了如下内容:

(ns thing.a.e
  (:require thing.a.b :as test))
.
.
.
(test/foo "hello")

当我这样做时,我得到一个例外说"No method in multimethod 'foo'for dispatch value: hello

我究竟做错了什么?还是不能在单独的文件中定义多方法的实现?

4

1 回答 1

6

有可能的。问题是因为thing.a.b.c没有加载命名空间。您必须在使用前加载它。

这是一个正确的例子:

(ns thing.a.e
  (:require
    [thing.a.b.c] ; Here all your defmethods loaded
    [thing.a.b :as test]))

(test/foo "hello")
于 2016-07-12T08:44:00.813 回答