Move SETF to src/setf.lisp
[jscl.git] / tests / apply.lisp
1 ; Tests for funcall/apply
2
3 (test (equal (funcall #'list 1 2 3) '(1 2 3)))
4 (test (equal (apply #'list 1 2 3 '(4 5 6)) '(1 2 3 4 5 6)))
5
6 (test (equal (funcall #'funcall #'list 1 2 3) '(1 2 3)))
7 (test (equal (funcall #'apply #'list 1 2 3 '(4 5 6)) '(1 2 3 4 5 6)))
8
9 (test (equal (apply #'funcall #'list 1 2 3 '(4 5 6)) '(1 2 3 4 5 6)))
10 (test (equal (apply #'apply #'list 1 2 3 '(4 5 (6))) '(1 2 3 4 5 6)))