bldc/tests/test_rest_args_2.lisp

7 lines
89 B
Common Lisp

(defun f (x)
(map (lambda (y) (+ x y)) (rest-args) ))
(check (eq (f 1 1 1) '(2 2)))