如何在不修改clj-kondo配置的情况下消除defrecord工厂函数重定义的redefined-var警告？

当你想要覆盖defrecord自动生成的->HideTableColumnMarker工厂函数时，clj-kondo会触发redefined-var警告——它检测到你正在重新定义一个已经由defrecord创建的var。要在不修改clj-kondo配置的情况下解决这个问题，你可以采用以下两种实用方法：

方法1：用alter-var-root修改现有var #

defrecord生成的工厂函数是一个已存在的var，你可以用alter-var-root直接修改它的实现，而不是用defn重新定义。这种方式clj-kondo会识别为修改现有var的行为，而非创建新var，因此不会触发警告：

(defrecord HideTableColumnMarker [columns-resize] ControlMarker)

(alter-var-root #'->HideTableColumnMarker
                (constantly
                 (fn
                   ([] (HideTableColumnMarker. :cut))
                   ([x] (HideTableColumnMarker. x)))))

方法2：用def直接绑定函数到目标var #

另一种方式是使用def而非defn来重新绑定这个var。虽然这本质上是重定义，但clj-kondo对defrecord生成的var，用def重新绑定的警告检测会更宽松，代码也更简洁：

(defrecord HideTableColumnMarker [columns-resize] ControlMarker)

(def ->HideTableColumnMarker
  (fn
    ([] (HideTableColumnMarker. :cut))
    ([x] (HideTableColumnMarker. x))))

如果你想让代码更紧凑，还可以写成多义函数的简化形式：

(defrecord HideTableColumnMarker [columns-resize] ControlMarker)

(def ->HideTableColumnMarker
  (comp HideTableColumnMarker.
        (fnil identity :cut)))

为什么这些方法有效？ #

clj-kondo的redefined-var警告主要针对用defn重新定义已存在var的场景。alter-var-root是明确的“修改现有var”操作，而非创建新var；而用def直接绑定函数，clj-kondo会将其视为对现有var的重新赋值，而非完全的重定义，因此不会触发警告。

内容的提问来源于stack exchange，提问作者erdos