java - Clojure - "Exception in thread "main"java.lang.ClassCastException : seesaw. core.proxy"

Question

我目前正在学习 Clojure，之前我没有使用过任何 Lisp 方言。
因此，在尝试进行简单的 GUI 测试时，我在 seesaw 中遇到了 ClassCastException。

core.clj文件:

(ns veg-gui.core)
(use 'seesaw.core)

(def f (frame :title "Hello world!") )


(defn -main [& args] 
  ( (config! f :content "Hello world.")
    (-> f pack! show!) ) )

完整错误。

Exception in thread "main" java.lang.ClassCastException: seesaw.core.proxy$javax
.swing.JFrame$Tag$a79ba523 cannot be cast to clojure.lang.IFn
        at veg_gui.core$_main.doInvoke(core.clj:8)
        at clojure.lang.RestFn.invoke(RestFn.java:397)
        at clojure.lang.Var.invoke(Var.java:411)
        at user$eval5181.invoke(NO_SOURCE_FILE:1)
        at clojure.lang.Compiler.eval(Compiler.java:6511)
        at clojure.lang.Compiler.eval(Compiler.java:6501)
        at clojure.lang.Compiler.eval(Compiler.java:6477)
        at clojure.core$eval.invoke(core.clj:2797)
        at clojure.main$eval_opt.invoke(main.clj:297)
        at clojure.main$initialize.invoke(main.clj:316)
        at clojure.main$null_opt.invoke(main.clj:349)
        at clojure.main$main.doInvoke(main.clj:427)
        at clojure.lang.RestFn.invoke(RestFn.java:421)
        at clojure.lang.Var.invoke(Var.java:419)
        at clojure.lang.AFn.applyToHelper(AFn.java:163)
        at clojure.lang.Var.applyTo(Var.java:532)
        at clojure.main.main(main.java:37)

(此外，我正在使用 lein run

Answer 1

(defn -main [& args] 
  ( (config! f :content "Hello world.")
    (-> f pack! show!) ) )

您的函数体周围有一组多余的括号。与以下比较:

(defn -main [& args] 
  (config! f :content "Hello world.")
  (-> f pack! show!))