Elisp 函数返回值

Question

我对 Elisp 有一个（可能）愚蠢的问题。我想要一个函数根据when 条件返回t 或nil。这是代码：

(defun tmr-active-timer-p
  "Returns t or nil depending of if there's an active timer"
  (progn
    (if (not (file-exists-p tmr-file))
        nil
      ; (... more code)
      )
    )
)

但我有一个错误。我不知道如何让函数返回一个值...我已经读过一个函数返回最后一个表达式结果值，但在这种情况下，我不想做出类似（PHP 混乱警告）之类的事情：

// code

if ($condition) {
  return false;
}

// more code...

也许我没有抓住重点，函数式编程不允许这种方法？

Answer 1

首先，tmr-active-timer-p后面需要一个参数列表； defun 语法是

(defun function-name (arg1 arg2 ...) code...)

第二，progn中不需要包裹body。

第三，返回值是最后评估的形式。如果你的情况，你可以写

(defun tmr-active-timer-p ()
  "Returns t or nil depending of if there's an active timer."
  (when (file-exists-p tmr-file)
      ; (... more code)
    ))

如果文件不存在则返回nil（因为(when foo bar)与(if foo (progn bar) nil)相同）。

最后，挂括号被认为是 lisp 中糟糕的代码格式样式。

PS。 Emacs Lisp 没有return，但它有Nonlocal Exits。我敦促您避免使用它们，除非您真的知道自己在做什么。