function - 如何在 elisp 中的任意点退出函数

Question

这是一个简单的问题，但不知何故我无法通过谷歌搜索找到答案:

如果不满足某些条件，如何在任意执行点退出函数。例如(我在这里使用“(退出)”作为替代):

(defun foo ()
  (progn (if (/= a1 a2)
             (exit) ; if a1!=a2, exit the function somehow
           t)
         (blahblah...)))

Answer 1

在elisp中，您可以使用catch和throwinstead of cl's block and return-from .

(defun foo ()
  (catch 'my-tag
    (when (not (/= a1 a2))
      (throw 'my-tag "non-local exit value"))
    "normal exit value"))

参见 C-hig (elisp) 非本地退出 RET