可変長引数を利用した関数を定義する

;; 今度は&restをつける
(defun rest-arg (a &optional b &rest c)
  (list a b c))
(rest-arg 1)				; => (1 nil nil)
(rest-arg 1 2)				; => (1 2 nil)
(rest-arg 1 2 3)			; => (1 2 (3))
(rest-arg 1 2 3 4)			; => (1 2 (3 4))

Emacs Lispテクニックバイブル