Làm thế nào để bạn trở về từ một chức năng tại một điểm tùy ý?

Làm thế nào để bạn trở về sớm từ một chức năng trước khi nó kết thúc? Ví dụ:

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

Chúng tôi có một số tùy chọn có sẵn.

Phi

Bạn có thể catch/ throwđể thoát khỏi chức năng.

thí dụ:

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

Khối

Bạn cũng có thể sử dụng blockvà return-from(mặc dù bạn sẽ cần phải yêu cầu cl-macs)

thí dụ:

(require 'cl-macs)

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

cl-defun

Chúng ta cũng có cl-defunmột hàm ẩn blockcó cùng tên với hàm, vì vậy chúng ta có thể thực hiện blockkiểu với ít hơn.

thí dụ:

(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-defuncũng có sẵn như một bí danh defun*được định nghĩa trong cl.el:

(require 'cl)

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

Ngoài những gì @EmacsFodder bảo hiểm, chỉ cần đưa ra một lỗi.

Điều này sẽ không hữu ích nếu mã được gọi bên trong (một cách linh hoạt, không phải từ vựng) phạm vi của các cấu trúc xử lý lỗi như ignore-errorshoặc condition-case, nhưng nếu không thì đó là một cách tốt để thoát khỏi hàm. Đó là thực tế những gì được thực hiện hầu hết thời gian.

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

Nếu bạn muốn tự xử lý lỗi thì bạn có thể đặt mã cuộc gọi (ví dụ như cuộc gọi đến một cái gì đó mà gọi my-funcmột cách sâu sắc ) bên trong a condition-case. Một lần nữa, đây là những gì được thực hiện hầu hết thời gian, ít nhất là thường xuyên như sử dụng catch+ throw. Tất cả phụ thuộc vào hành vi bạn muốn.