From 3a99734ff410b64609397b4091973a591b67941c Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Sun, 19 Jan 2003 01:26:36 +0000 Subject: [PATCH] Fixed busted test FUNCALL.7, which was illegally lexically binding a function to CONS. --- ansi-tests/funcall.lsp | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/ansi-tests/funcall.lsp b/ansi-tests/funcall.lsp index 6fc7b33a..f94cc280 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)) -- GitLab