Clojureでgenclassを使用してJavaクラスを拡張するときにスーパークラスを呼び出す方法は？

Question

スーパークラスのメソッドをClojureから呼び出したいとします。私は:gen-classを使ってJavaクラスを拡張しています。

(ns subclass.core 
    (:gen-class 
    :extends Baseclass)) 

(defn greet [] 
    "Hello from core") ; how to call super.greet()? 

(defn -main [& args] 
    (greet)) 

Javaの基底クラス

public class Baseclass { 
    public String greet() { 
     return "Hello from Baseclass"; 
    } 
} 

編集：私は、私はエラー

IllegalArgumentException No matching field found: pgreet for class Baseclass clojure.lang.Reflector.getInstanceField (Reflector.java:271) 

を取得しています

(ns subclass.core 
    (:gen-class 
    :extends Baseclass 
    :exposes-methods {greet pgreet}) 
    (:import Baseclass)) 

(defn greet [] 
    (.pgreet (Baseclass.))) 

(defn -main [& args]) 

を試してみました。しかし、私が呼び出したときに（あいさつ）リンクされている例として、

これはスーパークラスメソッドを呼び出す正しい方法ですか？

更新：入手しました。私たちは、基本クラスのメソッドを呼び出す別のメソッドを作成します。 https://en.wikibooks.org/wiki/Clojure_Programming/Examples/API_Examples/Java_Interaction#genclass
NB：それはリンクされた答えが言うものではありません。

Answer 1

この質問はすでにaskedとansweredです。

greet関数がBaseClassのインスタンスでpgreetメソッドを呼び出そうとしたため、例は失敗します。 gen-class edクラスのインスタンスを作成する必要があります。例えば

、このような何か：

(ns subclass.core 
    (:gen-class 
    :extends Baseclass 
    :exposes-methods {greet pgreet}) 
    (:import Baseclass)) 

;; You need to define a function for the overridden method 
(defn greet- [this] 
    (. this (pgreet))) 

(defn greet [] 
    ;; You need to use the *gen-class*ed class, not BaseClass 
    (. (new subclass.core) (greet))))