推荐使用宏向 Clojure 的 defrecord 构造函数添加功能吗？

Question

clojure 中的 defrecord 允许使用自定义字段定义简单的数据容器。

例如，

user=> (defrecord Book [author title ISBN])
user.Book

结果的最小构造函数仅采用位置参数，没有附加功能，例如字段默认、字段验证等。

user=> (Book. "J.R.R Tolkien" "The Lord of the Rings" 9780618517657)
#:user.Book{:author "J.R.R Tolkien", :title "The Lord of the Rings", :ISBN 9780618517657}

始终可以编写包装默认构造函数的函数以获得更复杂的构造语义 - 使用关键字参数、提供默认值等在。

这似乎是宏提供扩展语义的理想场景。人们编写和/或推荐哪些宏来实现更丰富的 defrecord 构造？

Answer 1

支持完整和部分记录构造函数以及支持可评估打印和 pprint 表单的示例：

• http://david-mcneil.com/post/765563763/enhanced-clojure-records
• http://github.com/david-mcneil/defrecord2

David 是我的一位同事，我们在项目中广泛使用这个 defrecord2。我认为这样的东西确实应该成为 Clojure 核心的一部分（当然细节可能会有很大差异）。

我们发现重要的事情是：

• 能够使用命名（可能是部分）参数构造记录：(new-foo {:a 1})
• 能够通过复制现有记录并进行修改来构造记录：(new -foo old-foo {:a 10})
• 字段验证 - 如果您传递声明的记录字段之外的字段，则会抛出错误。当然，这实际上是合法的并且可能有用，因此有一些方法可以使其成为可选的。由于它在我们的使用中很少见，因此它更有可能是一个错误。
• 默认值 - 这些将非常有用，但我们还没有实现它。 Chas Emerick 在此处撰写了有关添加对默认值的支持的文章：http://cemerick。 com/2010/08/02/defrecord-slot-defaults/
• 打印和 pprint 支持 - 我们发现以可评估返回原始记录的形式打印和 pprint 记录非常有用。例如，这允许您运行测试、滑动实际输出、验证它并将其用作预期输出。或者从调试跟踪中滑动输出并获得真正的可评估形式。

Answer 2

这是一个定义记录的具有默认值和不变量。它创建一个可以使用关键字参数来设置字段值的构造函数。

(defconstrainedrecord Foo [a 1 b 2]
  [(every? number? [a b])])

(new-Foo)
;=> #user.Foo{:a 1, :b 2}

(new-Foo :a 42)
; #user.Foo{:a 42, :b 2}

就像我说的......不变量：

(new-Foo :a "bad")
; AssertionError

但它们只有在 Trammel 的上下文中才有意义。

Answer 3

这是一种方法： http://david-mcneil.com/post/765563763/增强型 Clojure 记录