1

我有很多“乐趣”，试图理解为什么以下内容不起作用。src在我的项目目录中启动 nREPL 会话后lein，我执行了以下操作：

user> (require 'animals.core)
nil
user> (animals.core/-main)
"Welcome to Animals!"
nil
user> (require 'animals.animal)
nil
user> (extends? animals.animal/Animal animals.animal/Dog)
CompilerException java.lang.RuntimeException: No such var: animals.animal/Dog, compiling:(NO_SOURCE_PATH:1:1)

阅读 Lein 教程，我的基本理解是我应该像这样放置我的源代码：

- src/
|____ animals/
      |_______ core.clj
      |_______ animal.clj

下面动物的内容如下所示：

(ns animals.animal)

(defprotocol Animal
  "A protocol for animal move behavior."
  (move [this] "Method to move."))

(defrecord Dog [name species]
  Animal
  (move [this] (str "The " (:name this) " walks on all fours.")))

(defrecord Human [name species]
  Animal
  (move [this] (str "The " (:name this) " walks on two legs.")))

(defrecord Arthropod [name species]
  Animal
  (move [this] (str "The " (:name this) " walks on eight legs.")))

(defrecord Insect [name species]
  Animal
  (move [this] (str "The " (:name this) " walks on six legs.")))

Dog为什么在评估没有错误时尝试评估会Animal导致运行时异常？如何正确地做到这一点？

4

1 回答 1

3

Animal是一个协议。协议在定义它的命名空间中有一个关联的 Var。正是通过这个 Var 来引用一个协议。

相比之下，Dog是创纪录的。记录只是类，没有与之对应的 Var。（嗯，有工厂函数存储在 Vars 中，但是您不能通过这些工厂函数引用记录本身。）因此，要引用记录，您需要使用不同的语法：animals.animal.Dog.

于 2013-06-15T22:45:26.813 回答