diff --git a/ansi-tests/funcall.lsp b/ansi-tests/funcall.lsp index 6fc7b33a4311a31854a71be9ce1dea2f41e27417..f94cc28051a91376429df2e81cdfa87199452e47 100644 --- a/ansi-tests/funcall.lsp +++ b/ansi-tests/funcall.lsp @@ -32,10 +32,12 @@ (funcall #'(lambda (x y) (cons x y)) 'a 'b) (a . b)) +(defun xcons (x y) (cons x y)) + (deftest funcall.7 - (flet ((cons (x y) (list y x))) - (values (funcall 'cons 1 2) - (funcall #'cons 1 2))) + (flet ((xcons (x y) (list y x))) + (values (funcall 'xcons 1 2) + (funcall #'xcons 1 2))) (1 . 2) (2 1))