คุณจะกลับมาจากฟังก์ชั่นที่จุดใดก็ได้?

คุณจะกลับก่อนจากฟังก์ชั่นก่อนที่มันจะจบลงอย่างไร ตัวอย่างเช่น:

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

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

หากคุณต้องการที่จะจัดการกับข้อผิดพลาดด้วยตัวคุณเองแล้วคุณสามารถใส่รหัสโทร (เช่นการเรียกร้องให้สิ่งที่โทร ulimately my-func) condition-caseภายใน อีกครั้งนี้เป็นสิ่งที่จะทำมากที่สุดของเวลาอย่างน้อยได้บ่อยเท่าที่ใช้+catch throwทุกอย่างขึ้นอยู่กับพฤติกรรมที่คุณต้องการ