RosettaCodeData/Task/Variadic-function/Emacs-Lisp/variadic-function-1.l

7 lines
175 B
Common Lisp

(defun my-print-args (&rest arg-list)
(message "there are %d argument(s)" (length arg-list))
(dolist (arg arg-list)
(message "arg is %S" arg)))
(my-print-args 1 2 3)