ค่าเริ่มต้นของพารามิเตอร์ทางเลือก

Emacs Lisp ไม่ได้รับการสนับสนุนด้านการสร้างประโยคสำหรับพารามิเตอร์ที่เป็นตัวเลือก อะไรคือสำนวนที่แนะนำสำหรับการจัดหาพารามิเตอร์เหล่านี้?

เพื่อชี้แจงประเด็นของฉันนี่เป็นวิธีหนึ่งที่ชัดเจนเกินไปในการทำเช่นนั้น

(defun command (a &optional supplied-b)
  (let ((b (or supplied-b default-b)))
    (command-body a b)))

สไตล์ที่แนะนำคืออะไร?

ยกเว้นว่าคุณใช้ส่วนขยาย Lisp ทั่วไปตามที่แนะนำโดย @legoscia คุณจะต้องตรวจสอบว่ามีการระบุอาร์กิวเมนต์เพิ่มเติมหรือไม่ โปรดทราบว่าคุณไม่จำเป็นต้องใช้letที่นี่ ดูเหมือนว่าฉันจะสำนึกผิดมากกว่านี้:

(defun command (a &optional b)
  (or b (setq b default))
  (command-body a b))

ตามที่แนะนำในความคิดเห็นการใช้unlessอาจจะดีกว่าor:

(defun command (a &optional b)
  (unless b (setq b default))
  (command-body a b))

นอกจากนี้จากความคิดเห็น: สไตล์การทำงานที่บริสุทธิ์มากขึ้นจะใช้letเช่นเดียวกับในคำถามเดิม แต่คุณไม่ต้องการชื่อตัวแปรแยกต่างหาก:

(defun my-command (a &optional b)
  (let ((b (or b default)))
    (command-body a b)))

แน่นอนถ้าพารามิเตอร์ทางเลือกจำเป็นเมื่อคุณควรทำสิ่งนี้:

(defun my-command (a &optional b)
    (command-body a (or b default)))

คุณสามารถใช้cl-defunซึ่งช่วยให้คุณระบุค่าเริ่มต้นสำหรับอาร์กิวเมนต์ตัวเลือก:

(cl-defun command (a &optional (b default-b))
  (command-body a b))

ในกรณีนี้default-bจะมีการประเมินค่าเริ่มต้นทุกครั้งที่มีการเรียกใช้ฟังก์ชัน