7

很多时候，当我尝试编写一些函数时，我得到了异常。这是正常的。在 Java 中，您可以找到发生异常的位置和原因，但在 clojure 中，异常文本只会让我抓狂。是否有一些提示如何读取 clojure 中的异常以及如何查找代码异常发生的位置以及原因？

例如，我将采用一些代码：

(do
 (list?)
 (list? [])
 (list? '(1 2 3))
 (list? (defn f [] (do ())))
 (list? "a"))

当我在 REPL 中调用这个函数时，我会得到

java.lang.IllegalArgumentException: Wrong number of args (0) passed to: core$list-QMARK- (NO_SOURCE_FILE:46)

这对我在第二行找到问题没有多大帮助。在稍微复杂一点的代码中，它几乎不会提供任何信息。（当然它告诉你看看列表？在某些情况下，参数的数量是错误的。）我尝试在 REPL 中编写代码是错误的吗？如何在 REPL 中读取异常消息？有没有办法获得有关 REPL 中异常的更好信息？

4

2 回答 2

6

您可以使用clojure.stacktrace：http ://richhickey.github.com/clojure/clojure.stacktrace-api.html

用法：

(use 'clojure.stacktrace)
(/ 1 0)
(e)

输出：

java.lang.ArithmeticException: Divide by zero
 at clojure.lang.Numbers.divide (Numbers.java:156)
    clojure.lang.Numbers.divide (Numbers.java:3691)
    user$eval954.invoke (NO_SOURCE_FILE:1)
    clojure.lang.Compiler.eval (Compiler.java:6511)
    clojure.lang.Compiler.eval (Compiler.java:6477)
    clojure.core$eval.invoke (core.clj:2797)
    clojure.main$repl$read_eval_print__6405.invoke (main.clj:245)
    clojure.main$repl$fn__6410.invoke (main.clj:266)
nil
于 2013-02-19T10:19:56.467 回答
2

获取org.clojure/tools.trace.

user=> (use 'clojure.tools.trace)

让我们尝试一个dotrace（改变顺序以使事情更有趣）：

user=> (dotrace [list?]
  #_=> (do
  #_=>  (list? [])
  #_=>  (list? '(1 2 3))
  #_=>  (list?)
  #_=>  (list? (defn f [] (do ())))
  #_=>  (list? "a"))
  #_=> )
IllegalStateException Can't dynamically bind non-dynamic var: clojure.core/list?
  clojure.lang.Var.pushThreadBindings (Var.java:353)

唔...

user=> (.setDynamic #'list?)
#'clojure.core/list?

让我们再试一次：

user=> (dotrace [list?]
  #_=>   (do
  #_=>   (list? [])
  #_=>   (list? '(1 2 3))
  #_=>   (list?)
  #_=>   (list? (defn f [] (do ())))
  #_=>   (list? "a")))
TRACE t1216: (list? [])
TRACE t1216: => false
TRACE t1217: (list? (1 2 3))
TRACE t1217: => true
TRACE t1218: (list?)
ArityException Wrong number of args (0) passed to: core$list-QMARK-  
  clojure.lang.AFn.throwArity (AFn.java:437)

啊哈！(list?)在异常之前做到了。

于 2013-02-19T14:04:39.530 回答