Как вы вернетесь из функции в произвольной точке?

Как вы рано вернетесь из функции до ее завершения? Например:

(defun my-func () 
 "for example."
 (unless something (return nil))
 ; continue as usual...
 (+ 42 1))

У нас есть несколько вариантов.

бросать

Вы можете catch/, throwчтобы выйти из функции.

пример:

(defun my-func ()
  "thrown error"
  (catch 'my-catch
    (when t
      (throw 'my-catch "always going to throw"))
    (+ 42 1)))

блок

Вы также можете использовать blockи return-from(хотя вам потребуется cl-macs)

пример:

(require 'cl-macs)

(defun my-func ()
  "block / return-from"
  (block my-func
    (when t
      (return-from my-func))
    (+ 42 1)))

сл-DEFUN

У нас также cl-defunесть неявное имя blockс тем же именем, что и у функции, поэтому мы можем делать blockстиль с меньшими затратами.

пример:

(require 'cl-macs)

(cl-defun my-func ()
  "cl-defun implicit block"
  (when t
    (return-from my-func)) ; my-func is an implicit block.
  (+ 42 1)))

Defun *

cl-defunтакже доступен как псевдоним, defun*который определен cl.elтак:

(require 'cl)

(defun* my-func ()
  "defun* implicit block"
  (when t
    (return-from my-func)) ; my-func is an implicit block.
  (+ 42 1)))

В дополнение к тому, что описано в @EmacsFodder, просто выдайте ошибку.

Это не поможет, если код вызывается внутри (динамически, а не лексически) степени конструкций обработки ошибок, таких как ignore-errorsили condition-case, но в противном случае это хороший способ выхода из функции. Это на самом деле то, что делается большую часть времени.

(defun my-func () 
 "..."
 (unless something (error "Whoops!"))
 ; continue as usual...
 (+ 42 1))

Если вы хотите обработать ошибку самостоятельно, вы можете поместить вызывающий код (например, вызов чего-то, что вызывает неожиданно my-func) внутри a condition-case. Опять же, это то, что делается в большинстве случаев, по крайней мере, так же часто, как с помощью catch+ throw. Все зависит от того, какое поведение вы хотите.