Clojure 异常未捕获

问题描述

我正在学习 Clojure，我想创建一个类似于 Java 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）如果我改变了异常返回的格式，比如添加了特定的信息，错误消息仍然没有改变。

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

解决方法

在 (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#) 几乎普遍都是一个坏主意。一旦发生任何不重要的事情，扔掉错误就会变成一场噩梦，因为你已经抛出了问题的唯一证据。

clojure clojure exception finally try-catch