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 mess warning)：

// code

if ($condition) {
  return false;
}

// more code...

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

Answer 1

对于第一个，在tmr-active-timer-p之后需要一个参数列表；defun语法是

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

对于第二个，您不需要将正文包装在progn中。

对于Third，返回值是计算的最后一个表单。如果你的情况，你可以写

(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。我强烈建议您避免使用它们，除非您真的知道自己在做什么。