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)))