From ehuelsmann at common-lisp.net Mon Dec 15 12:27:38 2008 From: ehuelsmann at common-lisp.net (Erik Huelsmann) Date: Mon, 15 Dec 2008 12:27:38 +0000 Subject: [ansi-test-cvs] r2140 - trunk/ansi-tests Message-ID: Author: ehuelsmann Date: Mon Dec 15 12:27:37 2008 New Revision: 2140 Log: Change function names used in DEFUN.6 and DEFUN.7: they re-used the same name as DEFUN.5. Modified: trunk/ansi-tests/defun.lsp Modified: trunk/ansi-tests/defun.lsp ============================================================================== --- trunk/ansi-tests/defun.lsp (original) +++ trunk/ansi-tests/defun.lsp Mon Dec 15 12:27:37 2008 @@ -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