Bir fonksiyondan keyfi bir noktada nasıl dönersiniz?

Bir işlev sona ermeden önce nasıl erken dönersiniz? Örneğin:

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

Kullanabileceğimiz birkaç seçenek var.

Atmak

İşlevden çıkmak için catch/ throwdüğmelerine basabilirsiniz .

misal:

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

Blok

Ayrıca kullanabilir blockve return-from(size gereken etmek gerekir ancak cl-macs)

misal:

(require 'cl-macs)

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

cl-defun

Ayrıca , işlevle aynı ada cl-defunsahip bir örtük blockvar, böylece blockstili daha az ile yapabiliriz .

misal:

(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-defunayrıca defun*şu şekilde tanımlanan bir takma ad olarak da kullanılabilir 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'ın kapsadığına ek olarak, sadece bir hata oluşturun.

Bu, kod, ignore-errorsveya gibi hata işleme yapılarının kapsamı içinde (dinamik olarak, sözcük olarak değil) çağrıldığında yardımcı olmaz condition-case, ancak aksi takdirde bir işlevden çıkmak için iyi bir yoldur. Aslında çoğu zaman yapılan budur.

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

Hatayı kendiniz ele almak istiyorsanız, arama kodunu (örneğin, nihayetinde çağıran my-funcbir şeye çağrı ) a condition-case. Yine, çoğu zaman, en az catch+ kullanmak kadar sık ​​yapılan budur throw. Her şey istediğiniz davranışa bağlıdır.