从命名空间中排除 java.lang.Process

Question

我有一个名为 Process 的记录。

执行以下操作

(ns foo)
(defrecord Process ...)

导致错误Process already refers to: class java.lang.Process in namespace: foo

另外，当我将Process 导入另一个命名空间时，我得到了同样的错误：

(ns bar
  (:import [foo Process]))

以下片段解决了我的问题，但感觉不干净。

(ns foo)
(ns-unmap *ns* 'Process)
(defrecord Process ...)

(ns bar
  (:import foo [.. ..]))
(ns-unmap *ns* 'Process)
(import [foo Process])

我想在ns 语句中排除java.lang.Process，这样我就不需要ns-unmap 或单独的import 表达式。

Answer 1

您可以使用gen-class 创建您的类并按如下方式导入它。

类

(ns tes
  (:gen-class
    :name tes.Process
    :constructors {[] [String]}))

用法

(ns bar
  (:import [tes Process]))

(def process (Process .))
(prn :name process)