Jak powrócisz z funkcji w dowolnym momencie?

Jak wrócić wcześniej z funkcji przed jej zakończeniem? Na przykład:

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

Mamy wiele dostępnych opcji.

Rzucać

Możesz catch/ throwwyjść z funkcji.

przykład:

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

Blok

Możesz także użyć blocki return-from(chociaż będziesz musiał wymagać cl-macs)

przykład:

(require 'cl-macs)

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

cl-defun

Mamy też cl-defuncoś, co ma domyślną blocknazwę o tej samej nazwie co funkcja, więc możemy wykonać blockstyl za mniej.

przykład:

(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)))

odrzucić *

cl-defunjest również dostępny jako alias defun*zdefiniowany w następujący cl.elsposób:

(require 'cl)

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

Oprócz tego, co obejmuje @EmacsFodder, po prostu zgłoś błąd.

Nie pomoże to, jeśli kod zostanie wywołany (dynamicznie, nie leksykalnie) w zakresie konstrukcji obsługujących błędy, takich jak ignore-errorslub condition-case, ale w przeciwnym razie jest to dobry sposób na wyjście z funkcji. W rzeczywistości tak się dzieje przez większość czasu.

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

Jeśli chcesz sam poradzić sobie z błędem, możesz umieścić kod wywołujący (np. Wywołanie czegoś, co ostatecznie wywołuje my-func) wewnątrz condition-case. Znowu tak się dzieje przez większość czasu, przynajmniej tak często, jak przy użyciu catch+ throw. Wszystko zależy od tego, jakie zachowanie chcesz.