Confused о решении ClassName

Question

два файла

types.clj:

(ns test.types) 

(defrecord Price [date price]) 
(defrecord ProductPrice [name prices]) 

core.clj (это нормально)

(ns test.core 
    (:use [test.types]) 
    (:use [clojure.string :only (split)])) 


(defn read-data [file] 
    (let [name (subs (.getName file) 0 4)] 
    (with-open [rdr (clojure.java.io/reader file)] 
     (doall (map #(apply ->Price (split % #"\t")) (drop 2 (line-seq rdr))))))) 

core.clj (java.lang.IllegalArgumentException: Невозможно для разрешения имени класса: ProductPrice)

(ns test.core 
    (:use [test.types]) 
    (:use [clojure.string :only (split)])) 


(defn read-data [file] 
    (let [name (subs (.getName file) 0 4)] 
    (with-open [rdr (clojure.java.io/reader file)] 
     (ProductPrice. name (doall (map #(apply ->Price (split % #"\t")) (drop 2 (line-seq rdr)))))))) 

core.clj (это нормально)

(ns test.core 
    (:use [test.types]) 
    (:use [clojure.string :only (split)])) 

(defrecord tProductPrice [name prices]) 
(defn read-data [file] 
    (let [name (subs (.getName file) 0 4)] 
    (with-open [rdr (clojure.java.io/reader file)] 
     (tProductPrice. name (doall (map #(apply ->Price (split % #"\t")) (drop 2 (line-seq rdr))))))) 

core.clj (java.lang.IllegalStateException: -> ProductPrice уже относится к: # 'test.types/-> ProductPrice в пространстве имен: test.core)

(ns test.core 
    (:use [test.types]) 
    (:use [clojure.string :only (split)])) 

(defrecord ProductPrice [name prices]) 
(defn read-data [file] 
    (let [name (subs (.getName file) 0 4)] 
    (with-open [rdr (clojure.java.io/reader file)] 
     (ProductPrice. name (doall (map #(apply ->Price (split % #"\t")) (drop 2 (line-seq rdr))))))) 

Я полностью смущен об этих исключениях. И я не могу больше использовать «запись», кроме некоторых простых примеров из clojure.org и книг.

Любая помощь, спасибо!

Answer 1

defrecord создает класс java в пакете, названном именем текущего пространства имен. (ProductPrice. ...) является вызовом конструктора этого типа; это java interop - не обычный вызов функции.

Вы не можете ссылаться на класс, определенный вне java.lang или текущего пространства имен, если вы явно не указали импорт или укажите полное название пакета. Это включает вызов его конструктора.

Итак, чтобы устранить проблему, вам необходимо импортировать Price и ProductPrice.

(ns test.core (:import [test.types Price])) 
(Price. ...) 

или вызвать полный класс + пакет имя:

(test.types.Price. ...)