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