Come uscire da una funzione in qualsiasi punto arbitrario, in elisp

Question

Questa è una domanda semplice, ma in qualche modo non ho potuto trovare una risposta googling:

Come si esce da una funzione in qualsiasi punto arbitrario di esecuzione , se alcune condizioni non sono soddisfatte. Per esempio (io uso "(uscita)" come sostituto qui):

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

Answer 1

In elisp, è possibile utilizzare catch e 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")) 

Vedi C-hig(elisp) Nonlocal ExitsRET

Answer 2

mettere un blocco intorno al corpo e ritorno da esso:

(require 'cl-macs) 
(defun foo() 
    (block foo 
    (if (/= a1 a2) 
     (return-from foo) 
     reture-value)))) 

Answer 3

Una funzione restituisce il valore dell'ultimo modulo valutata. Se non ti interessa quale sia il valore, allora nil sarebbe un candidato probabile. In questo caso, la funzione restituisce il valore della funzione if.

es .:

(defun foo() 
    (if (/= a1 a2) 
     nil 
    "return-value")) 

In questo esempio banale, questi sarebbero anche come equivalenti:

(defun foo() 
    (if (not (/= a1 a2)) 
     "return-value")) 

(defun foo() 
    (when (not (/= a1 a2)) 
    "return-value")) 

Answer 4

Basta usare defun* invece di defun (viene fornito con cl pacchetto). Questa macro agisce già come Common Lisp's defun (racchiude il corpo della funzione in un blocco try-catch e alias return-from in throw ecc.).

Ad esempio:

(require 'cl) 

(defun* get-out-early() 
    "Get out early from this silly example." 
    (when (not (boundp some-unbound-symbol)) 
    (return-from get-out-early)) 
    ;; 
    ;; Get on with the func... 
    ;; 
    (do-such-and-such with-some-stuff))