diff --git a/ansi-tests/defun.lsp b/ansi-tests/defun.lsp index 32a844ad4b7c3b9c9742bba122886e868167b41e..e86db6168714f6d7b2ca1618b0d5ba9c738113fb 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