[ansi-test-cvs] r2140 - trunk/ansi-tests

[Erik Huelsmann]

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