java.awingをclojureにキャストすることはできませんIfn

Question

Ludum Dare 36の場合、私はcoljureでテキストベースのアドベンチャーゲームを試すことにしました。それは動作しますが、私は致命的でないエラーを取得しています：

スレッドで

例外は、「メイン」とjava.lang.ClassCastException： seesaw.core.proxy $ javax.swing.JPanel $タグ$のfd407141をキャストすることはできません clojure.lang.IFnに、 コンパイル：（は/ tmp /フォームinit2500875452880490300.clj：1：73）IFNエラーがかなりよくスタック上に文書化され、私はわからないされて

(ns ludumdare36.core 
    (:gen-class :main true) 
    (:use seesaw.core)) 

(def story [ 
      "Of all the most famous living rooms Transned's was the most famous" 
      "two" 
      "three" 
      "four" 
      "five" 
      "six" 
      "seven" 
      "eight" 
      "nine" 
      ]) 

(def mainWindow (frame :title "Hello" :content "" :on-close :exit)) 

(defn draw 
    [items & args] (
        (def mainWidget (vertical-panel :items items)) 
        (config! mainWidget :size [640 :by 480]) 
        (config! mainWindow :content mainWidget) 
        (invoke-later(-> mainWindow pack! show!)))) 

(defn writeStory [text index & args] 
    (let [makeButton (fn mb [index text] 
        (button :text text :mnemonic \N :halign :center :listen [:action (partial writeStory (get story index) (inc index))])) 
     makeStoryNode (fn ms [text index] 
         (vector text (makeButton (inc index) "Yes") (makeButton (+ index 2) "No"))) 
     ] 
    (draw (makeStoryNode text index)))) 

(defn -main 
    [& args] 
    (writeStory (get story 0) 0))            

ました問題が原因です。また、私のコードの品質についてもわからない。だからコメントなどを投稿する自由に私はIfnのエラーを取り除くためにリファクタリングすることができますか？私は何を理解していないのですか？

Answer 1

21行目からは、関数本体の周りに余分な括弧があります。それはクロージャーが潜在的な原因であると考えて、(def...) expによって返されている関数を呼び出したいと思うでしょう。しかし、その結果、呼び出し可能ではないSwingオブジェクトが生成されます。