Clojure 异常未捕获

Question

我正在学习 Clojure，我想创建一个像 Javas try-catch 一样工作的宏。如果抛出异常，则应返回异常。否则，应返回结果。任何打开的资源也应该在 finally 部分关闭（不使用 with-open）。但是，我确实有一个问题，除了没有被抓住，我不知道如何解决。任何帮助或建议将不胜感激！

这是我的代码：

(defmacro my-try 
  ([expression] 
   `(try 
      ~expression
      (catch Exception e# e#)
      )
   )
  ([[value variable] expression] 
   `(let [~value ~variable] 
      (try
        ~expression
        (catch Exception e# e#)
        (finally (if (instance? java.io.Closeable ~value) (.close ~value)))
        )
      )
   )
  )

当我尝试打开并读取不存在的文件时：

(def v (my-try [s (FileReader. (File. "missing-file"))] (. s read)))
(println v)

我收到以下错误：

Execution error (FileNotFoundException) at java.io.FileInputStream/open0 (FileInputStream.java:-2).
missing-file (Det går inte att hitta filen)

我怀疑这个错误信息是一个未捕获的异常，因为（1）它没有遵循其他异常的结构，以及（2）如果我改变了异常返回的格式，比如添加了特定的消息，错误信息仍然如此没变。

非常感谢任何帮助找出问题所在！非常感谢您考虑我的要求。

Answer 1

在(let [~value ~variable],~variable正在评估(FileReader. (File. "missing-file"))，但那不在try. 它会变成这样：

(let [s (FileReader. (File. "missing-file"))]
    (try
        (. s read)
        . . .
    ))

将let移入try，然后expression移入let正文。

此外，就像在所有语言中一样，(catch Exception e# e#)几乎普遍都是一个坏主意。一旦发生任何非平凡的事情，扔掉错误就会变成一场噩梦，因为你已经抛出了问题的唯一证据。