From f8352d96f553d5e42e5372b50277e1e58e1779e6 Mon Sep 17 00:00:00 2001
From: ehuelsmann <ehuelsmann@localhost>
Date: Mon, 15 Dec 2008 12:27:37 +0000
Subject: [PATCH] Change function names used in DEFUN.6 and DEFUN.7: they
 re-used the same name as DEFUN.5.

---
 ansi-tests/defun.lsp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/ansi-tests/defun.lsp b/ansi-tests/defun.lsp
index 32a844ad..e86db616 100644
--- a/ansi-tests/defun.lsp
+++ b/ansi-tests/defun.lsp
@@ -57,20 +57,20 @@
   (let ((x 1))
     (declare (special x))
     (let ((x 2))
-      (defun defun-test-fun-5 (&optional (y x))
+      (defun defun-test-fun-6 (&optional (y x))
 	(declare (special x))
 	(values y x))
-      (defun-test-fun-5)))
+      (defun-test-fun-6)))
   2 1)
 
 (deftest defun.7
   (let ((x 1))
     (declare (special x))
     (let ((x 2))
-      (defun defun-test-fun-5 (&key (y x))
+      (defun defun-test-fun-7 (&key (y x))
 	(declare (special x))
 	(values y x))
-      (defun-test-fun-5)))
+      (defun-test-fun-7)))
   2 1)
 
 ;; Documentation
-- 
GitLab