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