Confuso sulla risoluzione del nome di classe

Question

due file

types.clj:

(ns test.types) 

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

core.clj (è tutto OK)

(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: Impossibile per risolvere classname: 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 (è tutto OK)

(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 fa già riferimento: # 'test.types/-> ProductPrice in namespace: 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))))))) 

Sono totalmente confuso su queste eccezioni. E non riesco a trovare altri usi su "record" tranne alcuni esempi più semplici di clojure.org e libri.

Qualsiasi aiuto, grazie mille!

Answer 1

defrecord crea una classe java nel pacchetto chiamato dopo lo spazio dei nomi corrente. (ProductPrice. ...) è una chiamata al costruttore di quel tipo; questo è java interop, non una semplice chiamata di funzione.

Non è possibile fare riferimento a una classe definita al di fuori di java.lang o allo spazio dei nomi corrente a meno che non si specifichi esplicitamente l'importazione o si specifichi il nome completo del pacchetto. Ciò include chiamare il suo costruttore.

Quindi, per risolvere il problema è necessario importare prezzo e prezzo del prodotto.

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

o chiamare la classe + pacchetto completo Nome:

(test.types.Price. ...)